— 





Institutional Archive of the Naval Postgraduate School 





Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


1987 


The effect of the Goldwater-Nichols 
Department of Defense Reorganization Act on 
Surface Warfare Officer career paths. 


Steward, Thomas F.; Milch, Paul R. 


http://ndl.handle.net/10945/22247 


Downloaded from NPS Archive: Calhoun 


Calhoun is the Naval Postgraduate School's public access digital repository for 
| (8 D U DLEY research materials and institutional publications created by the NPS community. 
«ist Ser Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 


mi) KN Ox appointed — and published — scholarly author. 

ies) LIBRARY Dudley Knox Library / Naval Postgraduate School 

411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





http://www.nps.edu/library 

















NAVAL POSTGRADUATE SCHOOL 
Monterey , California 








: at —_ — ano 


i f | 
fi A 


THESIS 


THe EEEECT OF THE GOLDWATER-NICHOLS 
DEPARIMENT OF 
DEFENSE REORGANIZATION ACT ON SURFACE 
WARFARE OFFICER 
CAREER PATHS 


by 


Thomas F. Steward 


December 1987 


Thesis Advisor Paul R. Milch 





Approved for public release; distribution is unlimited. 


1239255 








SECURITY CLASSIFICATION OF THiS PAGE 


REPORT DOCUMENTATION PAGE 


la. REPORT SECURITY CLASSIFICAT:ON lo RESTRICTIVE MARKINGS 


2a. SECURITY CLASSIFICATION AUTHORITY 3 DISTRIBUTION / AVAILABILITY OF REPORT 


Approved for public release; 
distribution is unlimited 
4 PERFORMING ORGANIZATION REPORT NUMBER(S) 5 MONITORING ORGANIZATION REPORT NUMBER(S) 









2b DECLASSIFICATION s DOWNGRADING SCHEDULE 


6a NAME OF PERFORMING ORGANIZATION OFFICE SYMBOL 
(If applicable) 


7a NAME OF MONITORING ORGANIZATION 





Naval Postgraduate School 34 
6c. ADDRESS (City, State, and ZIP Code) 7b. ADDRESS (City, one and ZIP Code) 


Monterey, California 93943-5100 Monterey California 93943-5100 


Ba. NAME OF FUNDING: SPONSORING 
ORGANIZATION 


8b OFFICE SYMBOL 
(if applicable) 


9. PROCUREMENT INSTRUMENT IQENTIFICATION NUMBER 










8c. ADDRESS (City, State, and ZIP Code) 10 SOURCE OF FUNDING NUMBERS 


PROGRAM PROJECT TASK WORK UNIT 
ELEMENT NO. NO. NO ACCESSION NO 


THE EFFECT OF THE GOLDWATER-NICHOLS DEPARTMENT OF DEFENSE 
REORGANIZATION ACT ON SURFACE WARFARE OFFICER CAREER PATHS 





11. TITLE (include Security Classification) 


12. PERSONAL AUTHOR(S) 
Steward, Thomas F. 


13a. TYPE OF REPORT 13b TIME COVERED 14. DATE OF REPORT (Year, Month, Day) [15 PAGE COUNT 
Master's Thesi FROM eee 1987 December a 


16. SUPPLEMENTARY NOTATION 


7 COSATi CODES 


is 
Solana SE i 
oe cee 


19 ABSTRACT (Continue on reverse if necessary and identify by block number) 


18 SUBJECT TERMS (Continue on reverse if necessary and identify by block number) 


paths; SWOPATH model; 
S Act; Department of Defense Reorganization 





This thesis reviews the joint officer management policies mandated 
by the Goldwater-Nichols Department of Defense Reorganization Act and 
analyzes their effect on Surface Warfare Officer (SWO) career paths. 
The focus of this thesis is the balance between joint education and 
experience on the one hand, and service specific education and 


experience on the other hand. The analysis is conducted using the 
SWOPATH model of SWO career paths developed in an earlier Naval 
Postgraduate School thesis. The results show grade creep in the 


Commander command billets of SWO career paths resulting from a shift in 
emphasis toward joint experience. 


20 DISTRIBUTION / AVAILABILITY OF ABSTRACT 21 ABSTRACT SECURITY CLASSIFICATION 
RI UNCLASSIFIED/UNLIMITED (J same as RPT = CJ otic users | UNCTA on 
22a NAME OF RESPONSIBLE INDIVIDUAL 22b TELEPHONE (Include Area Code) | «2c OFFICE SYMBOL 
Prot, boul ich oie st 
DD FORM 1473, 84 MAR OBS VeciVOnmidy Fe usec UNtbexneusted SECURITY CLASSIFICATION OF THIS PAGE 


All otner editions are obsolete @ U.S. Government Printing Office. 1986—€06-24. 


I UNCLASSIFIED 


Approved for public release; distribution is unlimited. 


The Effect of the Goldwater-Nichols Department of 
Defense Reorganization Act on Surface Warfare Officer 
Career atis 


by 


Thomas F. Steward 
Lieutenant Commander,’ United States Navy 
B.S., Southern Methodist University, 1972 


Submitted in partial fulfillment of the 
redutmememes 1or the dearee of 


MASTER OF SCIENCE TOXIA NAGE ME 


from the 


NAVAL POSTGRADLATE SCHOOL 
December 1987 


ib Sueke sc | 


This thesis reviews the joint officer management policies mandated by the 
Goldwater-Nichols Department of Defense Reorganization Act and analyzes their 
effect on Surface Warfare Officer (SWO) career paths. The focus of this thesis is the 
balance between joint education and experience on the one hand, and service specific 
education and experience on the other hand. The analysis is conducted using the 
SWOPATH model of SWO career paths developed in an earlier Naval Postgraduate 
School thesis. The results show grade creep in the Conmander command billets of 


SWO career paths resulting from a shift in emphasis toward joint experience. 


1ei59 
TABLE OF GON TE ons 

| INTRODUCTION . 20.0... 000000 02 8 
A. PROBLEM. ..........%.... ORY S 

B. BAGKGROEND=......... .. ge ee 9 

1. The Surface Warfare Officer*Careem Path .....) 0) nn 9 

2. he Joint Speeiltw(JSPEC) Olficer....... 739. = ee l | 

Ci.» OBJECTIVES REASONS FOR THE ANADPYSIS (3 13 

I] FRAMPEWORK . 25220. c cee ee eee ete es ee: [4 
A. BACKGROUND ...25...0.5......., Se I4 

B THE SWOPATH NIODEL. ....... .«2393.e . L5 

C MODIFICATIONS TO THE MODEL .....2.......) === 16 

D. SCOPE ......+ 9. 2m oc... 2 eee 4 

E ASSUMPTIONS... ORR . 5 60 ca 5 Alene 17 

ELT, METHODOQBOGY «. ... U5 eee = eee eee ee IS 
A. BACKGROUND ..... 0982)... ee RS 

B. DATA 2.0.2... 0. cee ee. 0 ee 19 

C. ALTERNATIVES... . coc... ) .)) eee eee 19 

LV. ANATPYST So ee 0 RIRENee ng 2 
A. INDPRODRGTION......2... .ee eee. 21 

B. THE MAINSIEREAM CAREER RGSS ee, ..... nn 21 

|. Introduction ....... 2.22, eens ee a 

2. Advanvagessand Disadwantag@es...................) al 

3. “Tmpl@mentation 2.2...) See ee. a5 

4. Weeults ........0. 09. . oe. 25 

C. THE EARLY DEPARTSIENT BEAD CAREER PATE.) ae 28 

l. T[ntrogenioiin:. .aataeeaae eT 8 

2. Mdvantagésand Digawnmiiiges™............2.95.5).) xs 

3. Uimplemreitation ....2...... 828... .qe ee 3) 


TS a ro 6 ok cw ee ec sweet ee ee eeas 31 
Peeetnbesp ale MEPARTMENT!T HEAD TOUR CAREER 


Fee Ug gs tt ee eee 33 

DPA ONGC OME eee te eee S 

PR NO eS UGS vaTIASCS 6. ee eee a0 

PRP eae MU MOROO) eye ts lees Ge ee ee ee oe 

SL S(t EU ek ee ee eee ee 39 

V. SUmibyiRes, CONCLUSIONS, AND RECOMMENDATIONS ....... 44 

I Oe ee ee eee 44 

oy LES NO CS I 44 

CIE CIOS DE SS D810 (OSS 43 

agi Seen ide yy Cla | OF CALCLELATIONS .................... 46 
APPENDIX B: MAINSTREAM CAREER PATH TRANSFER 

PelOMMME UO SUM esc be ee ce ee 48 

eee SIC. MATINSTREAYI CAREER PATH TOUR LENGTHS ........ 49 

ee lee OV OPA Wiel PROGRAM 2 ....6 0. cc cece eee ee 50 

Peer aees ) > \VOPATEeLOGO INGIREDEMRILE ....ages..: cas... .... BS 

fee Set oy OPATmOSNEITALCIZAWION INCLUDE FILE............ 54 

eee a S\WVOPRPAIECALCL LATIONS INCLUDE FILE ............ 62 

Pee eel wo wy OPS Io OREENS IN@LUDE FILE ................... 66 

me PENDIX I: SO eee OUMNGlMIOE FILE oc ieee e ee ees 69 

Men OMEN OU Gh cages ed bes bck eee eee eee ee 76 

memeowemilovendipte PION EIST 2... cc le eee eee eens ag 


td. es ORD 


Dou 


a 


LO: 


te 


| 2 


Ie, 


LIST OF TABIaiss 


ACTIVITY DEFINITIONS... ... ..) 22g L6 
CHANGES TO MAINSTREAM TRANSFER FERS NAG ES a 24 
CHANGES TO MAINS DREAM TOUR LE NGag Se 24 
CHANGES TO MAINSTREAM TRANSFER PERGEROEESGES >>>. aul 
CHANGES TO MAINSTREAM TOUR LENGE ==>)... a 
CHANGES TO EARLY DEPART MENT DEAS a Siee. 

PERCENTAGES . 000i en cee rs 0 tn 32 
CHANGES TO EARLY DEPARTMENT HEAD TOUR LENG®iS eee 33 
CHANGES TO MAINSTREAM TRANSFER PERGCENDAGES =e 39 
CHANGES TO MAINSTREAM TOUR LENGTHS = ee 40 
CHANGES TOSINGLE DEPT. HD. TOUR TRAN siae 

PERGENTAGES .... 085... . UR 0 ee 40 
CHANGES TO SINGLE DEPT. ibs TOLR [TOURSEENGIES =e 4] 
MAINSTREAM TRANSFER PERCENTAGES ~ 7) >)... 48 
MAINSTREAM TO@RCENGIHS i022. . . Soper 49 


6 


EIST Ghee GURES 


hel eee it aly ie re). ee ee 1] 
4. ic ap sinecmiNArcer Patitomviajo; COninand......................22 
4.2 (Moi vernena simMetnenvildtiisiteam career pathija...................... 26 
4.3 ince mimiecins Il Them vialistedtm Career Pall) .........-....0 eee eee ee 27 
4.4 ecm iene ccc MMM iseeMCATeCH PeUM ee ee ee Pay, 
4.5 oni Wemmenasmmerie larly Dept. Hd. career path.................... 34 
4.6 icemmiiiminnchasmiimnemetmive Dept. lid. career path ..............--.06. ie 
ob. 7 Seem lcm ce rmmiciiimecat | OUT CarcemPathe.. ...a........:an....... 36 
4.8 PM menCiommMemomreremImOc tL. tid. LOlr Career path .......2......2.--5- 38 
4.9 Miwa nenusmipmacwoiele Meat. bd. Career Path ....... 0.00.51. ns se 
Uiccumeni: Iretds im tie single Dept. id Career Path ...........--+..+0-. 43 


A. | SN CONE STUN 2 (OIL, S00) 0 7 


~~ 


I. INTRODUCTION 


A. PROBLEM 
On October 1, 1986 the Goldwater-Nichols Department of Defense (DOD) 
Reorganization Act became law. Among the Law's stated purposes are: 


1. to improve the military advice provided to the President, the National Security 
Council, and the Secretary of Defense; 


ho 


tO improve joint officer management policies; and 


{42 


otherwise to enhance the effectiveness of military operations and improve the 
management and administration of the Department of Defense. [{Ref. 1: SEC. 
3 
To accomplish the improvement of joint officer management, the Law creates a 
new specialty for officers of all services, the joint specialty. The goal of the Law’s joint 
officer management policies 1s to ensure that competitive officers, who are current in 
their warfare specialties, are introduced into joint assignments. 

The Law sets forth specific policies for the management, promotion, education 
and tour length of these specialists and in doing so, delves into areas which have been 
the concern of the individual services and threatens to disrupt the traditional 
progression of career enhancing assignmients established by the services. The Law, in 
effect, mandates a new category of career enhancing assignments, namely, joint 
assignments. A career enhancing assignment is one which the service determines to be 
challenging and which, if completed successfully, keeps an officer competitive for 
promotion and positions of increased responsibility. Traditronally, career enhancing 
assignments are the result of service policy and do not carry the force of law. 

Consequently, when viewed in the framework of existing career progressions, the 
joint officer management policies established by the Goldwater-Nichols Act threaten to 
defeat the very purpose they Were intended to achieve by creating a subspecialty path 
that removes current and competitive officers from their warfare specialty for extended 
periods of time. 

The Goldwater-Nichols Act has generated renewed scrutiny of joint duty 
assignments and the Intermediate and Senior-level Professional Military Education 
(PME) leading to those assignments. The Chairman of The Jomt Chiefs of Siar 


convened the Senior Military Schools Review Board to study the ‘jointness’ of PME. 


In its report, the Senior Mulitary Schools Review Board stated: 


The JSO (Joint Service Officer) 1s not an elite officer and should not be divorced 
iaemminemmamstream ofthe Senvices. (Ref. 2: pg 12} 


Further, the board stated that in visits to the senior and intermediate Service schools: 


The Commandants and faculties of these colleges cautioned against trving to 
produce joint officers who do not understand the capabilities and limitations of 
their own Service. They persuasively described our nation’s need for officers who 
perform Well in the joint area because of their Service-specific knowledge and 
Sls msnotdespite thelt eXperiise amd experience. [Ref. 2: pg 1] 


In interviews with the board: 


Kev nulitarv commanders emphasized the need to integrate the joint specialists 
into the entire defense establishment, not to segregate them into a separate group 
with different experiences and education. [Ref. 2: pg 1-2] 


Given that the joint officer management policies are law, and that the traditional 
career enhancing assignments are service policy, then the task for the services is to 
accommodate the law, and its intent, without weakening an officer's experience in 
service related assignments. 

In further discussions of this issue I will focus on U. S. Navy Unrestricted Line 
(URL) officers and more specifically the Surface Warfare Officer community of URL 


officers. 


B. BACKGROUND 

An Unrestricted Line Officer is a naval officer who 1s eligible to command ships 
or aircraft. 

1. The Surface Warfare Officer Career Path 


The SWO community is defined as follows: 


The Surface Warfare Community is composed of officers who are qualified in thie 
surface warfare specialty, who man the surface ships of the Navv and whose goal 
is to command those ships. The Surface Warfare Officer (SWO) must develop 
experience and in-depth knowledge in a specific line of discipline (operations, 
combat svstems or engineering) and learn the fundamentals of engineering. 
weapons systems, and operational tactics. [Ref. 3: pg. 30] 


Key to understanding the SWO career path is the ultimate goal of commanding ships. 
Whether as Commanding Officer of an individual ship. or as Squadron, Group or Fleet 
Conimander, it is the command of ships which drives the determination of the SWO 
career path. This emphasis on commiand at sea places certain constraints on a SWO’s 
career path in the form of required professional training and operational sea tours. 
Specifically these tours are: 

1. SWOS Division Officer course 


Division Officer tour 


tJ 


SWOS Department Head course 


i sts 


Two Department Head tours 

Perspective Exectitive @llicemur . © course 
Executive Olficer (X ©) tour 

Perspective Commanding Officer (PCO) course 


Commanding Officer (CO) tour 


Oo OND 


Major Command tour 

In recent guidance to promotion and continuation selection boards, the 
Secretary of the Navy directed that “renewed emphasis” be given to operational 
experience in the promotion of Naval Officers [Ref. 4]. This guidance strengthens the 
primacy of the above progression of tours in the SWO career path. 
Although the SWO career path emphasizes operational sea tours, it also 


places a premium on the development of a subspecialty. 


The subspecialty system recognizes conunued operational development... as the 
cornerstone of URL career development and, at the same time, to meet total 
Navy requirements, encourages concentrated development in a subspecialty field. 
(Ref. 3: pg. 14] 


Development of a subspecialty entails graduate education and’or repeated tours ashore 
in a subspecialty area. 

Traditional career enhaneimy shore assignments include the Naval 
Postgraduate School, a service collece. instructor duty, recruiting duty, duty at the 
service headquarters (OPNAYV) or duty on a mayor staff. 

The Surface Warfare Ollicu: career path is, then. the progressigneian 
assignments of increasing responsibiis Wwhiet an olficer must follow to attain 


command at sea. The Surface Warfare Otlice: career path 16 depiered in oPigune ie 


Source: URL Officer Career Planning Guidebook 
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Rvcmne [.1 S\WO Career Path. 


2. The Joint Specialty (JSPEC) Officer 


The DOD Reorganization Act defines joint matters as: 


relating to the integrated employment of land, sea, and air forces, including 
matters relating to- 


l. national mulitarv strategy 
a Strategic planning and contingency planing; and 
ae command and control of combat operations under unified command. 


(Ref. 1: Title VOSEC Sam 


A JSPEC is therefore and officer who 1s nomunated or designated as having a specialty 
In planning and command and control in a unified command. 

An officer may be nominated by a service Secretary as a JSPEC i Hemisuam 
officer of pavgrade O3 or above and he completes a course of instruction at a joint 
professional military education (PME) school. Presently, only the colleges of the 
Nauonal Defense University (NDU): the Armed Forces Staff College (A FSC)}eitie 
National War College (NWC), and the Industral College of the Armed Forees (ICAF) 
qualify as joint PME schools. [Ref. 1: Title IV, SEC. 401] 

An officer is designated as a JSPEC bv the Secretary of Defense Ti aimes 
nominated as a JSPEC and completes a full tour of duty in a joint assignment 
[Ref 1: Tithe IV, SEC. 401]. JSPEC’s are further divided into those officers Wwitae 
without a Critical Combat Operations Skill (CCOS) [Ref. 1: Title 1V, SEC. S01) ) Tigage 
officers with the SWO designator and who are ordered to tours at sea as Commanding 
Officer or Executive Officer are said to have a CCOS. 

The promotion rate for nominated and designated JSPEC’s can be no less 
than that of officers of the same armed force, grade and competitive category with 
service headquarters (OPNAYV) experience. The promotion rate for any ofhcer serving 
in a joint assignment can be no less than that of all officers of the same armed foree, 
grade and competitive categorv. [Ref. |: Title IV. SEC. 401] 

The Law requires that by 1892, anv officer selected for promotion to flag or 
general rank must have served in a jomt assignment prior to selection {Ref. 1: Title IV, 
SEC. 404]. It also directs that: 


Anv selection board that will consider e:licers Who are serving in, or have served 
In, Joint duty assignments shall mlcce at least one officer designated by the 
Chairman of the Joint Chiefs of Stat! who is currently serving in a joint duty 
asstenment. (Réf. I: Tide 1V¥. SEC. 42] 


Leg 


The law stipulates that all officers nominated for the joint specialty must serve 
in a joint assignment immediately following their PME course. It further stipulates 
that fifty per cent of all graduates of the PME courses, regardless of whether thev are 
nominated for JSPEC, must serve in an immediate follow-on joint assignmient. 
(Ref. 1: Title IV, SEC. 401] 

The Law also tasks the Secretary of Defense to ensure that at least half of all 
jOint assignments are filled bv officers who have, or have been nominated for, the joint 
specialtv. It further tasks the Secretary to designate at least 100V joint billets. DOD 
wide, as critical joint billets and to ensure that critical joint billets are filled bv officers 
who are designated joint specialists. [Ref. 1: Title IV, SEC. 40]} 

Joint assignment tour lengths are to be not less than 3 years for flag and 
general officers and not less than 3 1/2 vears for other officers unless the officer has a 
eos id wien case, the tour will be not less than 2 years. (Ref. 1: Title IV, SEC. 
40 1] 


C. OBJECTIVES/REASONS FOR THE ANALYSIS 

The DOD Reorganization Act causes Navy manpower planners to perform a 
balancing act with the competing interests in the SWO career path. A balance must be 
established between joint education and experience, on the one hand, and service- 
specific education and experience, on the other hand, with each drawing and benefitng 
from the other. 

This analysis will focus on that balance and will attempt to answer the following 
questions: 


ecamethe = bdlance betwcem jolt education and experience and SWO education 
and experience be achieved? 


Pee eieteare the short term and lone tetm effects on SWO career paths of 
satisfying the statutory requirements of the Goldwater-Nichols Act. with or 
without a balance? 


3. What changes to SWO career piths, if anv, are necessary, possible to achieve 
the balance? 


The results of this analvsis will e\jlain the relationships among the variables of 
the SWO career path and provide a bisis from which to evaluate policy decisions 


concerning the career path. 


— 
tod 


I]. FRAMEWORK 


A. BACKGROUND 

The analvsis of the effects of the DOD Reorganization Act on the SWO career 
path 1s conducted using a Network representation of the SWO career path presented 
by Howe [Ref. 5} and modeled by Amnurault [Ref. 6]. Specifically, Amurault’s 
SWOPATH model is used to evaluate both the short and long term effects of 
introducing the joint specialty into various alternative SWO career paths. 

The SWOPATH model ts chosen as the tool for this analysis because it provides 
a macroscopic or ‘big picture’ view of the Surface Warfare community. The fact that it 
was designed for use on a personal computer, also makes it easy for the analvst to 
answer “what if?” tvpe questions rapidly. 

It should be noted that the model is not a detailer’s tool because it lacks the 
specificity necessary for that use. For example, in this application of the SWOPATH 
model, all types of shore duty tours except Professional Training. Professional 
Education, Joint Education, and Joint Tour are grouped together into one activity. 
This 1s necessitated by the eight activity limit of the model. Increasing the number of 
activities Would require a fairly extensive re-programming effort. Simularlv, at any one 
tour, no distinction 1s made, within the Professional Education activity, between the 
Naval Postgraduate School and the various service colleges. This distinction is left for 
the user to make outside of the model. Finally, the quarterly tume interval, imposed by 
the model, for each iteration of the calculations does not allow the degree of specificity 
that a detailer would want. 

The model is, however, adequate for the study of the general trends of interest to 
the manpower policy maker. Despite the limitations discussed above, there remaims 
sufficient flexibility in the model to make it a very sausfactorv tool for policy analvsis. 
‘As is the case for this study, a minimum of prograinmung Knowledge enables the user 
to tailor the model to his particular use. Ultimately, no re-programming ts necessary if 
the user 1s unconcerned with the activity labels on the output of the program. 


\fodifications made to the model for this study are discussed in a subsequent section. 
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B. THE SWOPATH MODEL 

The SWOPATH model is a menu driven, mnteractive stmulation model written in 
TURBO PASCAL®? It is based on a network of eight activities, represented by rows. 
and twelve tours, represented by columns. While the order of the activities has no 
particular significance, the order of tours from left to right represents the passage of 
tinle and imcreased seniority of the officers. A node is a specific activity tour 
combination and an arc 1s a path between nodes of one column leading to nodes of the 
next column to the right. A career path can then be represented bv a series of nodes 
connected by one-way arcs pomting from left to right in the network. 

Data stored at each node of the network are: 


I. the stocks or total number of officers at that node, 


2. the length of the assignment at that node in quarters, 
3. a breakdown of the stocks at that node by quarters remaining and 
4. the high and low limits for stocks at that node. 


Data stored on the arcs are the percentages of officers who are transfered from 
one node to another along the arcs in one iteration of the calculation routine. 

Starting with a set of data for the nodes, arcs, tour lengths, high limits, low 
linuts, and with the clock at time zero, the passage of time is simulated iteratively (one 
quarter at a time) by calculations which apply the transfer percentages to the node 
data. 

Transfers begin with those officers in their twelfth tour who have one quarter 
remaining mn that tour. These officers, who are captains at the 25 year point of their 
careers, represent the upper Innit of the system modeled and are transfered out of the 
system. For the rest of the officers in the twelfth tour, the quarters remaining in that 
tour are reduced by one. This creates a vacancy at the highest number of quarters 
remaining in the twelfth tour which ts filled by transfers from the previous or eleventh 
tour. The officers transfered from the eleventh tour are those who previously had only 
one quarter remaining in the eleventh tour. This process is repeated for each 
successively lower numbered tour. Finally, vacancies created by transfers from the first 
tour are filled by accessions. 

The Separation activity at each tour serves as a holding place for attritrons from 


the Surface Warfare community and provides an accounting of those attritions. The 


_ : 
“Trademark of Bortand International, Inc. 


“tour length’ for each tour of the Separation activity is one quarter and thus attritions 
leave the svstem with each iteration of the calculation routine. See Appendix A for a 


flow chart of the calculation routine. 


C. MODIFICATIONS TO THE MODEL 

For the purposes of this analysis, several modifications to the model are made. 
The activities Washington D.C., Shore (CONUS), and Shore (OU TUS)"are’ combined 
into one activity, labeled Shore. Two new activities, Joint Education and Joint Tour. 
are added. With the merging of three activities and the creation of two new ones, the 


total of eight activities is maintained. See Table 1 for updated activity definitions. 


TABLE 1 
AC TL ViERSIBES TNT PONS 


PROFESSIONAL TRAINING: Student billets in either the SWO 
Department Head or SWO Division Officer courses of instruction 
of duration longer than 20 weeks. 


PROFESSIONAL EDUCATION: Student billets at a postgraduate 
school or a war college of duration longer than 20 weeks. 


JOINT EDUCATION: Student billet at one of the colleges of the 
National Defense University of duration longer than 20 Weeks. 


JOINT TOUR: Tour in a designated) oimebilier: 
FLEET UNIT: Ship's company sea duty billets. 


AFLOAT STAFF: Afloat staff sea duty billets. 


SHORE: Shore dutv billets in the Washington D. a area, 


continental United States (CONUS) or non-CONL 


not meeting 
the criteria of A thru D above. 


SEPARATION: Loss of officers from the SWO community for 
whatever reason. 





When Amurault modified the calculations routine in October 1985, the new 
source code exceeded the limits of the TURBO PASCAL®3 cCOMpileicomin Onder Lo 
compile the new source code, the code that creates the logo at sign-on was changed 
and the code which creates the sign-off message was deleted. 

The modifications to the model’s source code can be found in Appendices D 


fought. 


Dee SCOPE 

The target population of this analvsis 1s pay grades Ol through O6 of the Surface 
Warfare Officer community. The target population is limited to male SWO’s with 
designators 1110 (regular Navy SWO), 1160 (regular Navy, in training for SWO), [115 
(active dutv Reserve SWO) and 1165 (active dutv Reserve, in training for SWO). The 
population is further limited to officers who are not nuclear trained. Women SWO’s, 
TAR (Training and Administration of Reserves) SWO’s and nuclear trained SWO’s are 
excluded because their respective career paths are different enough from the above 
mentioned target population to constitute separate categories and to obscure the true 


effect of policy changes on the target population. 


E. ASSUMPTIONS 
The major assumptions made in developing the framework for this analvsis are as 
follows: 


1. Accessions and transfers are coniputed on a quarterly basis. While in reality 
this may not be the case (computations may be more or less [frequent than 
quarterly), transfer percentages are adjusted to reflect accurate vearly accessions 
and transfers. 


PP Ocpcorations are trom tte Fleet Unit, Afloat Staff and Shore activities onlv. 
Selection standards and incurred additional obligated service preclude 
separation from the Professional Training, Professional Education, Joint 
Education, and Joint Tour activities in the model. 


ld 


Joint Education includes anv of the colleges of the National Defense Universtuv 
but does not include the specific service colleges. 


4. Professional Education througn tour 6 is understood to be the Naval 
Postgraduate School. Beyond tour 6 it is understood to be anv of the specific 
service colleges. 


>. Ihe PXO and PCO courses ure combined with the XO and CO tours because 
thie courses ane shorter tlhasmeone yuUarter. 


3 : . 
~ Trademark of Borland International, Inc. 


hg 


Wt. METHODOLOGY 


A. BACKGROUND 

Both Howe (Ref. 5: p. 46] and Mvygas [Ref. 7: p. 10] used a representative career 
path to Major Command as the basis for their analyses. Similarly, the method used 
here to investigate the effects of the DOD Reorganization Act on SWO career paths 1s 
to establish a Mainstream career path leading to Major Command. First a transfer 
percentage data file (MNSTRM30.ARD) which reflects current but pre-Reorganization 
Act policies 1s created.* Then. with the stocks at each node set to zero, the model ts 
run to 30 vears and the resulting steady state stocks are saved towa [ile vealed 
MNSTRM50.NOD. The two MNSTRM30 files then become the basis for the creation 
of two alternative career paths. 

In the case of each alternative career path, the stocks of officers are made to be 
at steady state prior to implementation of the Reorganization Act requirements. This 
1s accomplished by: 


l. selecting the file containing the steady state stocks for the Mainstream career 
path (NINSTRM30.NOD); 


creating the transfer path file for the specific alternative by editing the 
Mainstream transfer percentages file (MINSTRM30.ARD) and 


3, funning the modelto 50 years 


tJ) 


The transfer percentages and the resulting steady state stocks are then saved and used 
as the starting point for the analvsis of the effects of the Reorganization Act on the 
alternative career path. 

For the Mainstream career path, and each alternative career path created from it. 
the requirements of the Reorganization Act are implemented by changing tour lengths 
and transfer percentages to those required bv the Act. Accessions are held constant at 
325 officers per quarter (1300 per vear), No changes are made, other than those 
dictated by the Reorganization Act requirements, in order to isolate the effects due to 


the Act. 


*This is done by editing the default transfer percentage file provided with the 
model. 


>This is done bv selecting the NODEZERO.NOD file supphed with the model. 
IS 


The clock is set to zero and the model run for five vears, stopping every vo 
quarters to determine the changes to the stocks at each node. Five years 1s chosen to 
examine the effects of the Reorganization Act before the svstem has a chance to reach 
steady state again (1.e. short term effects). By looking at the stocks two quarters at a 
time, the analvst can see anv trends developing. 

After running the model two quarters at a time to five vears, it is then run to 50 
Peis: caisedted tiie, to detenmiune the long term effects of the Reorganization 
Act. 

The model provides that if any limuts are violated during the simulation, a 
warning is issued and the analyst mav: 

l. abort the simulation and return to the selection menu; 

2. ignore the limits and continue the simulation; or 

3. back up one quarter and continue the simulation with alterations. 
High and low limits are set at plus and nunus 10 percent of the beginning stocks at 
each node respectively. Violations of these linuts provide the analyst with a warning 
that a significant change is taking place and focus attention on the activities and tours 
where change is occuring. When the simulation is complete, the steady state stocks are 
compared with the stocks at the time the warning was issued to determine any trends. 

For this analysis, the point at which a violation occurs is noted and the second 
option is chosen. For the node at which the linut violation occurs, this results in the 
high linut being set to its maximum value (9999) or the low limit being set to Its 


munimum value (Q). 


B. DATA 

The data necessary to create the transfer percentage files were obtained from 
conversations with the Surface Warfare Community Manager (OP-130E1), from 
Various policy statements in the Perspective newsletter published bv the Naval Military 
Personnel Command (NMPC-461D) and from the Department cf Defense 
Reorganization Act. The Mainstream transfer percentages and stocks created for use 


in this analysis can be found in Appendices B and C. 


C. ALTERNATIVES 
The alternative career paths chosen for investigation in this analysis are as follows: 


l. the Mainstream career path, 


i 


ecitiG 





2. the Early Department Head career path, 
3. the Single Department Head Tour career path. 


Each of these alternatives is discussed in detail in the next chapter. 





ITV. ANALYSIS 


A. INTRODUCTION 
The arrangement and sequence of the Joint Education and Joint Duty tours in 

the career paths presented here are such that, with the exception of two Shore tours. 
only Joint Duty, Fleet Unit, and Afloat Staff tours are significantly affected by the 
Goldwater-Nichols Act. The following discussion will therefore concentrate on Joint 
Duty, Fleet Unit, and Afloat Staff tours. Presentation of the three career paths 
investigated will be in the following format: 

I. Introduction of the career path analvzed: 

2. Discussion of the advantages and disadvantages of the career path; 


3, Discussion of the procedures for implementing the career path and the 
requirements of the Reorganization Act in the SWOPATH model; and 


4. Discussion of the short term and long term trends resulting from the simulation. 


B. THE MAINSTREAM CAREER PATH 
1. Introduction 

The Mainstream career path depicted in Figure 4.1 1s actually a collection of 
the various sequences of assignments by which the majority of Surface Warfare 
Officers reach Major Command in their twelfth tour. It takes into account the 
dynamic nature of career paths, but is not intended to represent every possible 
combination of assignments which can lead to Major Command. It emphasizes the 
essential operational sea tours and subspecialty development discussed previously and 
includes the following features: 


1. an initial Department Head tour of 18 months followed by a split Department 
Head tour of 18 months; 


2. the split Department Head tour splits oflicers 80’20 percent between Fleet Unit 
and Afloat Staff; and 


70% of the officers serving a complex LCDR sea tour (Battle Group staff: BB. 
CV, LHA, LPH Department Head: LCDR Command). 


2. Advantages and Disadvantages 
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The principal advantage of the Mainstream career path is that it has been 
successful, for the most part, in matching an officer having the correct semoritv and 


experience With an appropriate assignment at each point in his career. It has also 
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provided the correct sea shore rotation and variety of assignmients to benefit morale 
and retention while maintaining the emphasis on sea duty assignments. 

The principal disadvantage of the Mainstream career path is its inflexibility. 
The primacy of sea duty assignmients, more specitically the fact that they occur at very 
narrowly defined points in the career path, and the bottle neck which occurs at the 
Surlace \Warare Ollicers School (SWOS) Departnient Head course (tour 3A) are the 
principal contributors to the inflexibility. 

This is not to argue that the Mainstream career path should be elinunated. 
The past 20 vears have proven that, for the most part, this career path has produced 
officers with the right experience at the right time in their careers. The inflexibility of 
this career path does, however, make the SWO community susceptible to grade creep 
during times of lower accessions, higher attrition and, or policy change. 

Grade creep occurs when a billet 1s filled by an officer more senior than the 
billet requires.© This occurs if the pool of eligible relief officers for a particular mipes Ol 
billet is reduced in size or the officers are delayed by any of the above three conditions. 
nicer ssUeimcitcUnistances, the Oflicers currently filling those billets are extended, 
thereby beconung miore senior. In the mean time. the officers relieving such officers 
also become miore senior than required for the billets. If grade creep begins in the 
earlier tours of the career path, it ripples through the community. If it begins in the 
fiteme Ours ol the career path, the effect as miore localized. The long term effect of 
grade creep is either to produce officers with sufficient time in service for promotion 
but without the requisite experience, or simply to age the community. To age the 
conimunitv means to increase the seniority of officers filling its billets. 

A recent example of grade creep occurred in the SWO community in the case 
of at sea Department Heads. Traditionally these officers are mid to senior grade 
Lieutenants. As the result of a period of smaller year groups of officers and a policy 
change strengthening the criteria for acceptance at the SWOS Department Head 
course, Department Heads have, more recently. become senior-grade Lieutenants to 
nud-grade Lieutenant Conimanders. 

3. Implementation 

The steady state stocks, tour le:.eth and transfer percentage data files for the 

Mainstream career path are created as discussed previously in the methodology chapter 


of this thesis. 


°Vvgas called this down detailing [Ref. 7: p. 27]. 


In order to simulate the requirements of the DOD Reorganization Act the 
following changes are affected on the input data files: 


|. mainstream transfer percentages in the MNSTRM30.ARD data file affected bv 
the Act are changed to those given tn Table 2; 


2. mainstream tour lengths in the MNSTRM>350.LED data file are chimeemiaas 
those given in Table 3; 


Cos 


default high and low hmuts are changed to reflect plus and minus 10°. of the 
MINSTRAL30.NOD stocks. 


TABLE 2 
CHANGES TO MAINSTREAM TRANSFER PERCENTAGES 


Arc Wie 
Prom tour To tour: Old New 
6C 7D 20 SO 
6C its 45 30 
6C ie 33 20 
9C 1OD 20 30 
9C Lids 2 § 
9C 1OF 68 4? 
ie 12D 15 30 
11C LE 32 19 
11C€ Tie 28 16 
11C 12G ZS 13 





TABLE 3 
CHANGES TO MATANSTREAM! WORSE NG iS 


Tour Length (quarters) 
Old New 
7D 8 10 


lOD 8 L2 


12D 10 1? 


4. Results 
icemmostedraimate change that the Goldwater-Nichols Act makes is the 
requirement that 50°% of officers graduating from Joint education institutions must 
serve an immediate follow-on joint duty assignment. For the sequence of tours and the 
transfer percentages used in the Mfainstream career path, this increased emphasis on 
joint duty assignments results in the shifting of 30%. more of the officers leaving a joint 
education institution awav from Fleet Umit and Afloat Statf tours and towards Joint 
Duty tours. Tlierefore. those tours receiving direct input from Joint Education tours 
are the ones most affected by the Act. Subsequently, those tours receiving direct input 
fom Jot Duty tours also experfence change. For the Mainstream career path. the 
effect of this shift in emphasis is grade creep in tour LIE (CDR command. post- 
command sea duty). This result is discussed in the following sections. 
a. Short Term 
The major trend in the short term simulation is the rapid and pronounced 


7th jth and jth 


increase in the stocks of officers in the 
7D, 10D and 12D). By the fifth vear of the simulation, the stocks at tours 7D and 10D 


increase 200% and 350° above initial stocks respectively. and settle down to a new 
th 


tour Joint Duty tours (tours 


faienestate cdimethese levels. ihe Stocks at tour 1ZD increase 16% by the 5“ vear of 


the simulation. This is depicted graphically in Figure 4.2. 


oth and gth 


The stocks of officers in the tour Joint Duty assignments remai) relatively 
constant because they are direct inputs from the fleet and bypass a Joimt Education 
tour. 

Figure 4.3 shows that the stocks of officers at the 10°) and 11° tour Fleet 
Unit assignments (tours 1OE and 11E) also change noticeably in the short term. By the 
5th vear of the simulation, the shift toward Joint Duty assignments results in a 6°%o 
ecineumethe stocks at LOE (CDR command). 

The shift, in combination with a two quarter increase in the length of Joint 
Duty tour 10D, results in the noticeable dip in stocks at tour [IE (CDR command. 
CDR XO, CDR Dept. Hd., CDR staff) followed by a rapid increase. This occurs 
because instantaneously increasing the tour length at Joint Dutv tour 10D. from eight 
Pomel ce Quarters, cheatesua [Gur a Wanter period, cicht quarters later, in which no 
items wlansieres i1omesoint Duty tour lOD to Fleet Whit tour LIE (see the 
discussion of transfers in section B of Chapter II). After the four quarter gap, the 
number of officers transfered from tour 1UD to tour IIE increases as a resuit of the 


increase in olficers assigned to Joint Duty billets discussed above. 
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Figure 4.2 Joint Duty trends in the Mainstream career path. 


Superimposed on this trend is the decline in stocks at tour 10E discussed 
above. Because tour 10E is nine quarters long, the effects of this decline are first 
observed at tour I1E after nine quarters. 

As shown in Figure 4.3, after twelve quarters, the increase in transfers from 
tour 10D out-paces the decrease in transfers from tour IOE and results in a rapid 
increase in stocks at tour 11E. The overall increase at tour I1E 1s 25% by the 5th vear 
of the simulation. 

Stocks at Fleet Unit tour 12E (Major command, ship) decline 4% by the 
5th vear of the simulation. 

The changes in stocks of officers at the 10° and 11" tour Afloat Staff 
assignments (tours 1OF and 11F) are less dramatic: 6% and 5°%o declines respectively. 
The fact that stocks in tour 11F do not increase as in tour IIE can be attributed to the 
fact that 11F does not receive input from a Joint Duty tour and is therefore affected 


only by the decrease in stocks at tour 10E its only source of input (see Figure 4.1). 
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Figure 4.3 Fleet Unit trends in the Mainstream career path. 


b. Long Term 

The stocks of officers at Joint Duty tours 7D and 10D continue at the 
steady state levels achieved by the 5th vear of the simulation. The stocks at Joint Duty 
tour 12D increase an additional 42°% to reach a steady state level 58° above initial 
stocks bv the yoth vear of the simulation (see Figure 4.2). 

iylestne stocks at Fleet Laie’tour 10 (CDR Command) continue at the 
level achieved bv the 5th Weareor the Simulamom, tne stocks at Fleer Unit tour 11E 
(CDR command, post-command sea duiv) continue to increase to achieve steady state 
30°% above initial stocks oy the 20h .ear of the simulation (see Figure 4.3). 

The crossing of the grarhs in Figure 4.3 indicates a shift in CDR 
commands from the 10° to the 11°" sour. This shift is indicative of grade creep in 
CDR command billets. 


The increase in stocks at tour IIE is not due to an increase in post 
command stocks. CDR command is a prerequisite for the post-command billets at 
tour 11E, and the only source of officers to fill post-commmand billets is Fleet Unit tour 
IOE (see Figure 4.1). The effect of the Reorganization Act requirements is to reduce 
the stocks at tour LOE and therefore the stocks of available reliefs for the post- 
conunand billets at tour LIE. 

At the same time, officers shifted away from command billets at tour LOE 
are delayed in serving in a command billet until tour 11E. This shift has the effect of 
aging the community; Le. Increasing the seniority of officers at their first opportunity 


to Carmmmaand: 


C. THE EARLY DEPARTMENT HEAD CAREER PATH 
1. Introduction 

Both Howe [Ref. 5: p. 99] and Miygas [Ref. 7: p. 21] present am Seam 
Department Head career path. An updated variation of this career path is investigated 
here with respect to the effects of the DOD Reorganization Act. 

The Early Department Head career path shown in Figure 4.4 is a modification 
of the Mainstream career path shown in Figure 4.1 and reflects current policy 
regarding this career path. The differences between the Early Department Head career 
path and the Mainstream career path are highlighted by bold lines in Figure 4.4. 

The essential element of the Early Department Head career path is the 
officer's attendance at the SWOS Department Head course immediately following his 
initial sea tour (tour 2A) and results in the officer serving his first Department Head 
tour (tour 3E) one tour earlier than those oflicers following the Mainstream career 
path. 

[mportant assumpuons reflected in the career path shown tn Figure 4.4 are 
that officers following this path: 

|. serve two Departinent Head tours (3E and JE, F): 


2. attend either the Naval Postgraduate School or the Armed Forces Staff College 
(tours 5B or 5C) following their Department Head tours: and 


6") tour. 


3. rejoin the Mainstream career path in their 
For this analysis, it is assumed that 20°o of officers completing their first Division 


Otlicer tour (1E) follow this path. 
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2. Advantages and Disadvantages 

The main advantage of this career path 1s that it introduces the qualtlied 
voung officer to Department Head billets early enough in his career to allow him to 
complete both tours (3E and 4E F) while still a Lieutenant. This, in effect. counters 
the grade creep in Department Head billets discussed above. [Ref. 7: pp. 24-27] 

‘An additional advantage of this career path is the earlier opportunity for the 
post Department Head officer to attend the Naval Postgraduate School (tour 5B). 
This in turn allows an immediate follow-on utilization tour (tour 6G) [Ref. 7: p. 28]. It 
can be seen in Figure 4.1 that in the Mainstreain career path, the post Department 
Head graduate of the Naval Postgraduate School is delayed in serving a utilization tour 
until his 9° tour (9G) because of the required sea duty at tours 7E/F and Siuee 

Yet another advantage of the Early Department Head career path 1s the 
earlier opportunity for the post Department Head officer to attend the Armed Forces 
Staff College (tour 5C). A subsequent assignment to Joint Duty (tour 6D) qualifies 
this officer as a JSPEC and then reintroduces him into the Mainstream career path on 
time for a Complex LCDR or Executive Officer tour (7E, F). 

The main disadvantage of the Early Department Head career path is its 
interruption of the sea’shore rotation and the effect that might have on retention. It 
can be seen in Figure 4.4 that, with the exception of 6 months ashore at the SWOS 
Department Head course (tour 2A), the officer following this career path serves the 
first 6 vears of his career atusea. fRet. 7: p. 29) 

3. Implementation 

To simulate the Early Department Elead career path in the SWOPATH model 

the following changes are affected to the input data files: 


I. select the MNSTRM30.NOD steady state stocks data file created for the 
Mainstream career path. 


2. mainstream transfer percentages in the MNSTRM30.ARD data file affected by 
the Act are changed to those given in lable 4: 


mainstream tour lengths in the \INSTRM30.LED data file are changed to 
those given in Table 5, 


2 


4. run the model to 30 vears and save the steady state stocks, transfer percentages. 
and tour length data to tiles named EDH30.NOD, EDIHS30 AR ee 
EDH30. ED réspeetively. 


To analvze the effects of the DOID Recreanization Act on this career path the 
following actions are taken in the SWOP VEE model: 
[. select the EDHS30.NOD file. 


yO 


TABLE 4 | 
CHANGES TO MAINSTREAM TRANSFER PERCENTAGES | 


Aue 0% | 
Prom tour: koutou: Old New | 
LE 2A () 2) 
LE EG 3U LO 
Cs Sp 0 100 
3E NE 0) 76 
Sie Ne () 19 
oe 4H 0 5 
4E 5B 0) 10 | 
4E 5 0 10 
4E SE 76 48 
4E De i9 L2 
JE SH 5 20 
dF 2B 0 4? 
4F aC Q 43 
AF or Q 20 
5B 6G () 100 
iG 6D 0 29 
aC 6G Q SO 
6D re 50 30 
6D tala 50 70 
6G ats 40 25 
6G ie oS 70 
6G ital 2 5 


2. make changes to the default high and low limit data files to reflect plus and 
minus 10°> of the EDH30.NOD stocks. 


make the changes listed in Table 6 to the EDH30.ARD transfer percentage file. 
make the changes listed in Table 7 to the EDH30.LED tour length file. 
run the SWOPATH model as described in the methodology section. 

4. Results 


The Early Department Head career path is a variation of the Mainstream 


Bow 


career path and is, in fact, identical to the Mainstream career path after the 6'” tour. 
The same trends observed in the analvsis of the Mainstream career path are therefore 
observed in the analysis of the Early Department Head career path. The same shift in 


stocks at tours LOE and [IE occurs but to a lesser extent. 


Tee) 
CHANGES TO MATNSTREAW FOUR E ei. 


Tour Length (quarters) 

Old Nee 
2A 0) 2 
3E 0 6 | 
aie 0) 6 | 
4H Q I | 
SB ) 8 
SC 0 2 


TABLE 6 


CHANGES TO EARLY DEPARTMENT HEAD TRE 
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a. Short Term 
Bs oh Hacii i , . 7 — » Gih 7a yee 
Figure 4.5 shows the rapid rise cn Joint Duty stocks in the o™, . 
and 12" yours (6D, 7D, LOD, and [21 respecuvely). Tour 6D now shows a marked 
increase (4495) because, in the Earls Derartment Head career puth, it recemes iia 
from Joint Education tour 5C (see Figure 4 4). 





TABLE 7 
See iGls 1Otsne:1 DEPARTMENT HEAD TOUR LENGTHS . 


Tour Length (quarters) | 
Old New | 

6D § 10 | 

7D 8 10 

10D S }2 | 

12D 10 12 





Stocks at tours 7D and 10D tmiecrease 138% and 194° respectively, less 
than in the Mainstream career path. Steady state stocks are achieved for these two 


snd 


tours by the VcdheOle i omsimmllationesene vcar canlier than for the \lainstream 


career path. The stocks at tour 12D increase 50% by the 5th 


vear of the simulation. 
Pictires-0 Sl@wwsetne trends in stocks at the 10") and 11% tour Fleet Unit 
assignments (tours LOE and 11E). Once again, there 1s a shift in stocks from tour LOE 


tomtom (YE with a 28% imeréase in stocks at tour LIE by the sth 


year of the 
simulation. 
The change in stocks at Afloat Staff tours OF and I1F 1s again less 
dramatic; 4°o and 7° respectively. 
b. Long Term 
Fleitem shows tat the stocks of offers at Joint Duty tours 7D and 
ond 


10D continue at the steady state levels achieved bv the vear of the simulation. 


The stocks at Joint Duty tour 12D continue to increase until the poth 


year of the 
simulation when they achieve steady state $2". above initial stocks. 
Figure 4.6 shows that the stocxs at both tour 1OE and tour 11E continue at 


Steady State levels achieved by the 5th CC mC mCeeslIMUlationn, 


D. THE SINGLE DEPARTMENT HE\D TOUR CAREER PATH 
1. Introduction 
The Single Department Head Tcur career path 1s yet another variation of the 
Mainstream career path. The bold lines in Ligure 4.7 show that it deviates from the 


Mainstream career path in having a single 30 month Department Head assignment at 
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Figure 4.5 Joint Duty trends in the Early Dept. Hd. career path. 
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Figure 4.6 Fleet Unit trends in the Early Dept. Hd. career path. 


(A tour assignment at either the Naval Postgraduate School 


tour 4E, followed by a 5 
(eur 5B) of the Armed Forces Staff College (tour 4G). 
The officer following this career path rejoins the Mainstream career path in his 6th 
tour in either a joint duty (tour 6D) assignment or a shore duty assignment (tour 6G). 
Thirty percent of the officers graduating from the SWOS Department Head course 
follow this path. 
2. Advantages and Disadvantages 

The main advantage of this career path is the fact that, like the Earlv 
Depa memedamearcer Path, tt Caunters the ggade creep currently experienced in 
Department Head billets without deviating radically from the Mainstream career path. 

As in the Early Department Head tour, an officer following this career path 
has the opportunity to achieve a subspecialty or to qualify as a JSPEC and to rejoin 


the Mainstream career path by his 6°) tour. 
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The main disadvantage of this career path is the length of time between sea 
Omise ew anem em lnethes vidimstreain Career path an oflicer spends 2 to 2.5 vears 
between his second Department Head tour and his complex LCDR or XO tour. In 
the Single Department Head Tour career path, an officer can spend as much as 4 years 
between his Department Head tour (4E) and his next sea duty tour (7E). 

Another disadvantage of this career path concerns subspecialty uulization and 
designation as a JSPEC. The officer following this path and attending Naval 
Postgraduate School (NPS) at tour 2B would then attend the Armed Forces Staff 
College at tour 5C. If this officer then goes on to an immediate follow-on Joint Duty 
tour, the first opportunity for him to serve in a subspecialty utilization tour is tour 9G. 
up to I4 vears after attending the Naval Postgraduate School. On the other hand. if 
the officer following this career path is detailed to a utilization tour (6G) following the 
Armed Forces Staff College (and a Joint Duty tour later in his career), he cannot be 
designated as a JSPEC because Joint Education and Joint Duty must be sequential for 
designation. One solution to this problem is not to detail officers who attend NPS in 
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LOUr to (he SIn@iesWeparlilient teduecaneer path. 
3. Implementation 

Simulating the Single Department Head Tour career path in the SWOPATH 
model presents a problem. The Department Head tour at 4E is common to both this 
career path and the Mainstream career path but the tour length ts different for the two 
career paths. The SWOPATH model cannot accommodate two tour lengths at a node 
simultaneously. The solution to this problem is shown in Figure 4.8 . 

The 30% of the officers who serve a single Department Head tour follow the path 
highlighted with bold lines. Tour 4E represents the single Department Head tour and 
has a tour length of 10 quarters. 

The 70% of the officers who follow the Mainstream career path are diverted 
to the unused node at 4A, marked “‘Dummiw’ in Figure 4.8 This node represents their 
first Department Head tour and has a tour length of six quarters. The officers thus 
diverted, rejoin the Mainstream) career path at tour five with no actual change in their 
progression. In this manner, the career puth shown in Figure 4.7 can be invesugated 
using the SWOPATH model. 

To simulate the Single Departinent Head Tour career path perform the 


following tasks: 


"Tours SE and 7E in Figure 4.1 
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tr 


aa 


select the NINSTRM30.NOD steady state stocks data file created for the 
\f{ainstream career path; 

make the changes listed in Table 8 to the MNSTRM30.ARD_ tranosler 
percentages data file: 

make the changes listed in Table 9 to the MINSTRAI30.LED tour length daia 
file; and 

Fun tiiemmode! to 30 years and Save the steady state stocks, transfer percentages. 
Mie motenlenetne data to files named SDHSU-NOD, SDH30.ARU. and 
SDE br respectively. 


Nae eres 
CHANGES TO MAINSTREAM TRANSFER PERCENTAGES | 


Arc °% 

From tour: To tour: Old New 
3A dA Q. 70 
3A aE 100 30 
dA SE Q 76 
4A ae () 19 
4 2In 0 - 
4E SB () 55 
4E oC 0) 40 
4E Site 76 () 
We SE 19 v 
SB 6G 0 100 
SG 6D () 3) 
ae 6G U $0) ! 


To analvze the effects of the DOD Reorganization Act on this career path: 


ie 
2. 


hs 


Soleo nie SI 305. OD file. 
make changes to the default high and low lmit data files to reflect plus and 
minus 10% of the SDH30.NOD stocks. 
make the changes listed in Table 6 to the SDH30.ARD transfer percentage Iile. 
make the changes listed in Table 7 to the SDH30.LED tour length file. 
run the SWOPATH model as described in the methodology section. 

4. Results 


This career path 1s a less radical departure from the Mainstream career j-ath 


and the effects of the DOD Reorganization Act fall between those observed for the 


Mainstream and Early Department Head career paths. Grade creep in the CDR 


command billets at tours LOE and ILE occur in this career path also. 


ay) 


ere? 
CHANGES TO MAINSTREAM TOURSEENG [HAS 


Tour Length (quarters) 
Old ee 
dA VY 6 
4E 6 10 
5B 0) : 
58 V 2 






TABLE 19 
CHANGES TO SINGLE DEPT. HD) TOLCR TRANSFER PERCE N Taga 













Are [> 





From tour: To tour: Old New 





Se 6D 20) 30 
5C OG SO 50 
6C 7) 20 50 
6C ie 45 30 
oC oP 55 20 
9C LOD 2() 30 
7 ihe 12 S 
9C COs O08 42 
lyk 121) 15 30 
rie Eales 32 19 
Lic | ot 28 16 
11C 12G 25 1D 





a. Short Term 


Figure 4.9 shows the same pattern of rapid increase of stocks in Joint Duty 
tours 6D, 7D, [0D, and 12D followed '. « leschng off at the 2 to 2 eanpoimn 
The stocks,of officerseat. coup. 6D. imese..c “+. the 3rd vear of the simulation. This 
is due to the input from the Joint | gu.ation tour 5C which was not a factor in the 
Mainstream career path. The stocks at tuurs 7D and 10D increase 219% anaes ts 
rd 


respectively by the 3°° vear of the sumulwtuen. 


wt) 


eee 
Gm enrGes 1}@ S| \GLE DEPT IID. TOLR TOUR LENGTHS 


ony Length (quarters) 
6D S 10 | 
7D § LU | 
10D g {2 
Ee 10 Pe 


meune +10 sao wemmestrends in Fléeetsl mt stocks at tolirs 7E, IVE, and 
11E. The stocks at 7E show an 8% decline bv the third year then rise rapidly to settle 


sth year of the simulation. The dip in stocks at 


out 2°o below initial stocks by the 
tour 7E is again the result of shifting emphasis toward Joint Duty assignments and ts 
indicative of the system finding a new equihbrium after simulation of the 
Reorganization Act requirements. The same pattern exhibited in the Mainstream 
career path, indicative of grade creep, 1s seen in tours JOE and IIE with stocks at tour 


hn vear of the simulation. 


ie reachine 21°o above inttral stocks bv: the oy 
Stocks at the Afloat Staff tours 7F, 8F, and 10F again show mocerate 
Seemics Of 3 -n, > 0, and 57o mespectively. 
b. Long Term 


Figure 4.9 shows that only tour 12D stocks have not reached steady state 


h h 


bv the ge vear of the simulation. Tour 12D stocks achieve steady state by the 20! 
Meat. 
Figure 4.10 shows that stocks at tours 7E, LOE, and IIE reach steadv siate 


by the psth vear of the simulation. 
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V. SUMMARY, CONCLUSIONS, AND RECOMMENDATIONS 


A. SUMMARY 

This study has reviewed the joint officer management policies mandated by the 
Goldwater-Nichols Department of Defense Reorganization Act and has analyzed the 
effects of those policies on Surface Warfare Officer career paths. The focus of the 
study has been to answer the following questions: 


1. Can the balance between joint education and experience and SWO education 
and experience be achieved? 


tJ 


What are the short term and longterm effects on SWOscareer palgiiguon 
sausfving the statutory requirements of the Goldwater-Nichols Act, with or 
without a balance? 


3. What changes to SWO career paths, if any, are necessary, possible to achieve 
the balance? 


The analvsis was conducted using the SWOPATH model to simulate three Surface 


Warfare Officer career paths. 


B. CONCLUSIONS 

[n all three career paths studied, a balance 1s achieved between joint education 
and experience and SWO education and experience but at a cost. 

With the sequence of tours investigated in this study, the effect of the Goldwater- 
Nichols Act is concentrated in Joint Duty, Fleet Unit, and Afloat Staff stocks of tours 
following a Joint Education tour. A 30% increase in the transfer percentage from 
Joint Education to Joint Duty tours results in a slight decline in the stocks of ofhicers 
assigned to Fleet Unit or Afloat Staff tours immediately following a Joint Education 
tour. It also results in a significant increase in the stocks of officers assigned to Joint 
Duty following a Joint Education tour. This shift achieves the goal of increasing the 
joint education and experience of officers but has the disadvantage of introducing grade 
creep at the CDR grade Fleet Unit tours. Specifically, those CDRs wWhowwaamis 
otherwise serve a CDR command tour are delayed from doing so while assigned to 
Joint Duty. Therefore, a new balance is achieved but at the cost of a significant shift 


towards Joint Duty tours and the resulting grade creep in CDR command billets. 


a4 


C. RECOMMENDATIONS 

Additional study of this topic could be done by focusing on a solution to the 
grade creep found here. This should involve investigations of alternatives to the mid- 
grade to senior-grade portion to the SWO career path. 

Further study should also be conducted to investigate the effects of increasing 
ieime Eaticalion Opportunities, either by increasing quotas to the colleges of the 
National Defense University or by qualifving the Service Colleges as Joint Education 
institutions. 

If the SWOPATH model is to be used for further analysis, miore accurate base 
line data for stocks, transfer percentages, and tour lengths should be developed from 
the information contained in the Officer Master File (OMF). 

The current version of the SWOPATH model includes a separate program 
(LPDATE) for updating the stocks data files. The UPDATE program has the 
advantage of working directly on the stocks data files without going through the 
SWOPATH model and its change menu. The output of the UPDATE program can 
then be read by the SWOPATH model. The UPDATE program should be modified to 
allow updating of the transfer percentages, tour length, and high and low limut data 
files as well as the stocks files. 

Ultimately. if it is envisioned that the SWOPATH model will be used extensively. 
the possibility of rewriting it using spreadsheet software should be pursued. 
Spreadsheet software would have two advantages over the current version of the 
model. First, spreadsheet software would allow easier expansion of the network than 1s 
possible in the current SWOPATH model and therefore make the model more 
responsive to changing analvtical requirements. Second and finally, spreadsheet 
software would allow the SWOPATH model to be integrated with Data Base 
\fanagement (DBM) and graphics software to provide a powerful decision support tool 


for the manpower analvst. 


APPENDIX A 
FLOW CHART OF CALCULATIONS 


The chart shown in figure A.| diagrams the logical flow of the calculations 
discussed in Section B of Chapter II. It is intended to provide a general idea of the 
calculations performed with each iteration of the simulations. For the source code 


from which the flow chart was derived, see Appendix G. 
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Figure A.l SWOPATH Calculations. 
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APPENDIX C 
MAINSTREAM CAREER PATH TOUR LENGTHS 
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PROGRAM SWOPATH3 


{ This is the main program. 


APPENDIX D 


SWOPATH MAIN PROGRAMNI 


Here all global variables are defined, 


all procedures are forward referenced, and all include files are 


called. 


The remainder of the parts that make up the model are 


subroutines, called procedures, which the main program calls as 
necessary to run the model. } 


TYPE 


VAR 


One_Dim_Real = 
Two_Dim_Int = 

Two_Dim_Real = 
Tre_Dim_RealCH = 
Tre_Dim_RealNR = 
AString = 
STR_25 = 


One_Dim_StrCH = 


Tour_sum: 
Tour > 

TLength: 
Activity: 
HiLimit, 
LoLimit, 


Temp_Billet_Total, 


New_Length>» 
Old_Length,> 


One_Dim_Reals 


One_Dim_StrNrR3 
One_Dim_StrCH} 


Billet_Length: Two_Dim_Int3s 
Transfer_Path: Tre_Dim_RealCH} 


Path_total, 
Temp_Billet_Node, 


{ 
{ 
{ 
{ 
{ 
{ 
Billet_Total: Two_Dim_Real}; { 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


Billet _Node: Tre _Dim_RealNR;} 


Accessions,» 
Tempcount,> 
NumberSeconds, 
x» 

Y» 

T, 

L; 

Total, 
NRQuarters » 
NRYears, 
Quarter, 
QtrCount, 
YrCount: 
K»> 

A» 
Answer » 
Choice, 
Reinit, 
Display, 
Skip, 
First, 
Last: CHAR} 
Stop_calc_A, 
Stop_calc_T, 
Final_totals, 


INTEGER} 


orf 


CN 


on 


ARRAY [€1..12] OF REAL} 

ARRAY [1..12,'A‘'..'H'] OF INTEGER} 

ARRAY [1..12,'A‘..'H'] OF REALS} 

ARRAY [1..12,'A'..'H','A'..'H'] OF REAL} 
ARRAY [1..l2, eA | 
STRING [80]3 

STRING [25]5 
One_Dim_StrNR = ARRAY [1..16] OF 
ARRAY ['A'..'H'] 


'H',1..16] OF REALS} 


STR_253 
OF STR_25} 


label for which tour } 

label for length in quarters) 

label for activity } 

max number of officers by billet node } 
min number of officers by billet node } 
temporary number at each billet node } 

sum of officers at each billet node } 

new length of tour (to be changed to ) } 
old billet length (for record purposes) } 
actual billet length )} 

percent of officers to be transferred } 
percent totals of transfer paths ) 
temporary number of officers at each node }) 
number of officers at node by quarters left 


number of officer accessions } 


tour number from 1 to 12 } 
quarters left from 1 to 16 } 


how many quarters model is to run } 

value established by user } 

counts from 1 to @ } 

vartable keeps track of 8 of iterations } 
variable keeps track of nr of years } 
used for activity } 

used for activity } 


usted in years to indicate reinitialize } 
answer to choice of display } 


Used to input info to Correct_choice } 
Used to input info to Correct_choice } 


limit warning boolean } 


Violation, { if limits violated } 

Toomany » Comiseimict 2 

Toofew, { lo limit } 

Change» { desire to change } 

Initial,» { initialize values } 

All_ finished, { completely finished with program } 
Finished, { finished with particular section } 
Ready >» 

Replace,» activates replacemt of initial data } 
Review, look over display selections } 


Used in correct_answer procedure } 
Used in correct_choice procedure } 


OkK_answer , 
Ok_choice: BOOLEAN} 
File var,» 


aa eG 


Output_name » { } 
Nededata, { these are all } 
Arcdata, { used in data file } 
Lengdata, { creation and transfer } 
Hilidata, 

Lolidata: Str_253 { Data file variable names } 


Choice_zero, 


Chg_var : 


AString3s 


Temporary:REAL$ 
Data_file: TEXT} 


{.pa}{ forward references for all procedures } 


PROCEDURE 


PROCE DURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCE DURE 
PROCEDURE 


PROCE DURE 
PROCEDURE 
PRCCE DURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCE DURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCE DURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 


Logo} FORWARD}; 


Dirlist; FORWARD; 

Initialize 3 FORWARD; 
Initialize_nodes 3 FORWARD; 
Initialize_arcs 3 FORWARD} 
Initialize lengths; FORWARD; 
Initialize hilimits} FORWARD; 
Initialize_lolimits; FORWARD} 
Initialize_labels3 FORWARD; 


Selection_menu;3 FORWARD 3 
Review_selections 3 FORWARD; 
Calculations 3 FORWARD; 
Ask_for_years 3 FORVMARD; 


All_billet_totals; FORWARD; 
Billet_totals (VAR T: INTEGER; 

VAR A: CHAR J; FORWARD; 
High_warning; FORWARD; 


Low_warning; FORWARD; 


Changes} FORWARD; 
Change_accessions3 FORWARD}; 
Change_arecs3 FORWARD} 
Change_lengths FORWARD; 
Change_hilimits 3 FORWARD} 
Change_lolimitss FORWARD}; 


Dchoices;} FORWARD; 
Dchanges; FORWARD; 
From_pathscrn3 FORWARD; 
To_pathscrn; FORWARD; 


Disp_assigns FORWARD; 
Disp_tours; FORWARD; 
Disp_paths_from; FORWARD; 
Disp_paths_to}3 FORWARD; 
Disp_billets} FORWARD; 


Node_dump; FORWARD; 
Arc_dump3 FORWARD; 
Length_dump;} FORWARD; 
Hilim_dump; FORWARD; 
Lolim_dumps FORWARD; 


Invalid_answer; FORWARD; 
Wrong_answer3 FORWARD} 
Correct_choice (VAR Choice, First, Last: CHAR; 


= 


ol 


PROCEDURE Correct_answer (VAR Answer: CHAR} 

VAR OK_answer: 
PROCEDURE Another_change; FORWARD} 
PROCEDURE Strip (VAR File_var: STR_25)3 FORWARD; 
PROCEDURE Blankline (X, Y: INTEGER); FORWARD} 
PROCEDURE Save_data 3 FORWARD} 
PROCEDURE Replace_data; FORWARD; 


VAR OkK_choice: 


{.pa} { link up all include files )} 
{$I ibmUTILS } 
{$I Logo) 
{$I Initdata) 
C$I Selectio) 
{$I Calculat}) 
{$I Totals) 
{$I Chgdata) 
{$I Screens} 
{$I 
{$I 
{ST 
{$I 


Displays) 
Datadump) 
Answers) 

Stordata) 


{ .pa) 
{ The beginning of the MAIN Program ) 


BEGIN 


Accessions := 3503 
Tempcount := 03 
NRYears := 03 
NRQuarters := 0} 
Quarter := 0} 
YRcoount := 0} 
Review := false} 
Initial := 
New_Length { T, A ] 
Logo} 


IF Initial THEN 
BEGIN ¢€ initial if } 
Initializes 
Change_accessions} 


>= Billet_Length [ T, A ]}3 


BOOLEAN); FORWARD; 


BOOLEAN); FORWARD; 


{ to skip sample selections the first time )} 
true; € to initialize the data the first time ) 


Initial := false; { to prevent program from reinitializing) 

END; € anitialize if) 

REPEAT { repeat loop until allfinished ) 

All_finished := false; { to ensure that we are not all finished )} 
Ready := false} { establish that we are not ready for calcul } 
Change := false} { establish that initially we do not change ) 


IF NOT All_finished THEN Selection_menu}s 
UNTIL All_finished = true} 


Save_data}3 


Clearscreen} 

{GotoRC ( 12, 13)3) ( deleted 05 November 1987 -- TFS } 
(Color ( white, magenta)}) 

CWRITELN (' Have a nice da;! ")3) 

(Color ( yellow, blue)3) 


END. <{ SHOPATH main program } 


Ai 
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APPENDIX E 
SWOPATH LOGO INCLUDE FILE 


{FE HE HEH IE FETE HE HE IE IE IE IEE HE IE IIE IE HE IE HE HE IE HE HE HEHE HE HE HE HE HE EE EE EI IE EE EI IE EI IE HE IE IE EI EH HE EE EE EE HHH 
FEI IE HEHE HE HEI IE IE HE IE FEE IE IE IE HE IE IEE HE IE IE FE IE IEE IE IESE IE IE IE FE EIEIO FE FE IE IE DE FE IE FE FE IE IE IE IE FE IE IE IE IE IE IE IE IE IE IE IE IE HE IE IEE HE EE HE EH HEH) 


{ This file contains the procedure 
Logo 
} 
PROCEDURE Logos 
{ This procedure calls up the initial screen logo.) 
BEGIN 


ClearScreens 

Color (white,blue)3 

ClearScreens 

Color(white, magenta )} 

Center(10, 'SWOPATH' }}3 

{Center(12,'The Surface Warfare Officer ' }3} 
{Center(14,'Career Path Model' )3) 


Center (18,'‘Version 1.2')3 { Be sure to change version number } 
{Center (20,'20 Cctober 1985' )}) 
Color(white, blue); { and date if modifications are made ) 


GotoRC (23, 1)3 
DELAY (1500)3 


END; {Logo} 


Cyt 
tad 


APPEND F 
SWOPATH INITIALIZATION INCLUDE FILE 


{ 363636 36 3 IE IE IESE FE FE IE IE FE IE FE FE SE FE IE IE FE FE IE HE SE SE IE IE HE HE FE FE HE FEE IE FE FE FE IE JE IE FE HE IE HE FE FE IE HE HE IEE HE HE IE IE HEH IE HE FE IE HE IEE IE IE HE HE HEH HE HEH 
JE IE IE AE IE AE IE IE AE IE IE HE FE FEE 9E IE HE IE IE FE IE SEE IE HE FEE FE AE HE AE FE IE IE IE SE IE IE HE FE IE IE HE HE IE HE IEE JE IE IE JERE HE FE IE IE SE ERE SE HE IE EE IEE HEE HE HEHEHE HEH) 


{ This file contains the following procedures 


Initialize 

Initialize nodes 

Initialize_arcs 

Initialize_lengths 

Initialize_labels { modified 11/05/87 -- TFS } 
Initialize_hilimits 

Initialize lolimits 

DirList 


PROCEDURE Initialize; 


{ This procedure provides the displays and mechanics to call up 


the data 
VAR 


initialization procedures ) 


OK: BOOLEAN} 
X,Y : INTEGER; 


Default 
BEGIN 


Finished 


>: Str_253 


:= false; 


IF Initial THEN 


BEGIN 


Nodedata := ‘Nodes'} 
Arcdata := ‘Arcs'} 


Lenadata 
Hilidata 
Lolidata 


‘Length's3 
"Hilimit's 
‘Lolimit’ 3 


REPEAT {€ until finished ) 

Chg_var := 

‘Do you want to change the input data files from those listed below?'; 
Choice_zero :='No changes wanted/finished changes. '3 

Ochanges } 


IF Choice = 'Q' THEN Finished := true 


ELSE 

BEGIN 

Clearscreen}3 

GotoRC (5, 1)3 

WRITELN (' Remember, you must choose a data file that you have ')3 
WRITELN (' previously saved. Those are listed below.'); 
WRITELN3 

Color (red, white )3 

Dirlist; 

Color (white, blue); 

WRITELN3WRITELN3 

GotoRC (11, 15)3 : 

WRITELN (' Enter the input filename’ )} 


Color (blue, white); 

GotoRC (13, 15)3 

WRITELN (' typed exactly as listed above,'); 
Color (white, blue); 

GotoRC (15, 15)3 

WRITELN (' that you choose to use: ')}3 


REPEAT { OK true } 


Cay 
<<. 


IF Choice = ‘'l' THEN Default := '‘Nedes's 
IF Choice = '2' THEN Default := ‘Arcs's 
IF Choice = '3' THEN Default := ‘Length's 
IF Choice = ‘'4' THEN Default := ‘Hilimit's 
IF Choice = '5' THEN Default := ‘Lolimit's 
GotoRC (20,15)}3 
WRITE ('Type '‘', Default,' if you want to exit back to menu. ')5 
Blankline (15, 40)3 
GotoRC (15, 40); 
READ (File _var)5 
IF Choice = 'l' THEN File_var := CONCAT (File var,'.nod')3 
IF Choice = '2' THEN File_var := CONCAT (File _var,'.ard')3 
IF Choice = '3' THEN File_var := CONCAT (File_var,'.led' }3 
IF Choice = '4' THEN File_var := CONCAT (File_var,'.hid' }3 
IF Choice = ‘'5' THEN File_var := CONCAT (File_var,'.lod')5 


ASSIGN (Data_file, File_var);{This procedure determines if there } 
{($I-} RESET (Data_file) {$I+}3;€is such a file as selected by user.} 
OK := (IOresult = 0)3 

Strip (File_var }} 


IF NOT Ok THEN 

BEGIN 

Blankline (24, 1)3 

Color (white, red)3 

WRITE (' Cannot find file ', File_var,' please try again.')3 
DELAY (1500)5 

Color (white, blue)} 

Blankline (24, 1)3 

ENDs; { OK IO result if } 


UNTIL OK = True; 
IF Choice = 'l' THEN Nodedata := File_var}3 
IF Choice = ‘'2' THEN Arcdata = File var} 
IF Choice = '3‘ THEN Lengdata := File_var} 
IF Choice = 'G' THEN Hilidata := File var} 
IF Choice = '5' THEN Lolidata := File_var;} 
END3; {< if choice = 0 } 
UNTIL Finished = true} 


Initialize labels; 
Initialize nodes; 
Initialize_arcs; 
Initialize_lengthss 
Initialize_hilimitss 
Initialize_lolimitss 
Final _ totals := true; 
All_billet_totals; 
Blankline (2¢,1)3 
END; {if Initial } 


IF NOT Initial THEN 
BEGIN 


REPEAT { Until finished true } 


Chg_var := ‘Which data do you desire to reinitialize?'; 
Choice_zero := '‘None/finished reinitializing data. 's 
Dchanges 3 

IF NOT OK_choice THEN Initializes 

IF Choice = '0' THEN Finished := true} 

IF Choice = '1' THEN 

BEGIN 

Initialize_nodes} 

Arcdata := CONCAT (Arcdata,'.ard' }5 

Lengdata := CONCAT (Lengdata,'.led' )}; 

Hilidata := CONCAT (Hilidata,'.hid' )3 

Lolidata := CONCAT (Lolidata,'.led' ); 

END; { If choice 1 } 


Cay 
Cay 


IF Choice = ‘2' THEN 


BEGIN 

Initialize_ares}s 

Nodedata := CONCAT (Nodedata,'.nod' ); 
Lengdata := CONCAT (Lengdata,‘'.led' ); 
Hilidata := CONCAT (Hilidata,'.hid' ); 
Lolidata := CONCAT (Lolidata,'‘'.lod'); 


END; {€{ If choice 2 } 


IF Choice = ‘3' THEN 

BEGIN 

Initialize _lengths3 

Nodedata := CONCAT (Nodedata,'.nod' );5 
Arcdata := CONCAT (Arcdata,'.ard' )5 
Hilidata := CONCAT (Hilidata,'.hid' )5 
Lolidata := CONCAT (Lolidata,'.lod' )35 
END; {€{ If choice 3 } 


IF Choice = 'G' THEN 

BEGIN 

Initialize_hilimitss 

Nodedata := CONCAT (Nodedata,'.nod' )}5 
Arcdata := CONCAT (Arcdata,'.ard')3 
Lengdata := CONCAT (Lengdata,'.led' )3 
Lolidata := CONCAT (Lolidata,'.lod')s 
END; CIf choice 4 } 


IF Choice = ‘S' THEN 

BEGIN 

Initialize_lolimitss 

Nodedata := CONCAT (Nodedata,'.nod' )3 
Arcdata := CONCAT (Arcdata,'.ard'); 
Lengdata := CONCAT (Lengdata,'.led'); 
Hilidata := CONCAT (Hilidata,'.hid' )5 
END; < if choice 5 } 


UNTIL Finished = trues 


Final_totals := trues 
All_billet_totalss 
Clearscreens 


END; {< if NOT initial )} 
END} {< Initialize procedure) 


{ 3636 36 36 36 36 36 36 36 3636 3E3E 5 IE IEE IE EE 3G IE IE IE IEE IE IE IE 56 3 IE FE FE FE FE FE FE FE IE FE IE IE IE IE IE IE HE IE IE IE FE IE SE FE FE IE IE FE IE SE IE IE FEE FE IE IE JE IESE FE HE HEHEHE 
JE IE IE IE IE IE IE IE IE IESE IE 3G EE JE IE IE 5E 5E EE FEE 3E FE 996 96 96 E36 3E 9E IE 96 56 E96 E96 JE 36 36 5696 36 36 36 36 3G IE JE IE SE 36 CIE IEE IE 3G IE FE 38 3G 26 FE EE 36 36 9 36 3¢ } 


{ .pa} 


PROCEDURE Initialize nodes; 


{ This procedure reads assignment data from 
a data file on the disk } 


BEGIN 


Blankline (23, 10)3 

GotoRC (23, 1)3 

WRITE (' Initializing the number of officers at nodes ', 
'','using the file: ‘, Nodedata)s 

Nodedata := CONCAT (Nodedata,'.nod' )3 

ASSIGN (Data_file,Nodedata)3 

RESET (Data_file)s 


WHILE NOT EOF(Data_file) DO 
BEGIN 
READ (Data_file, T )5 


IF NOT EOF(Data_file) THEN 
BEGIN 

READ (Data_file, Skip); 
READ (Data_file, A )3 


Ca 
ae 


READ (Data_file, Skip); 

READ (Data_file, L }3 

READ (Data_file, Skip)3 

READLN (Data_file, Billet_node ( T, A ,L J)s 
END; { if not end of file } 


END; { end while not end of file } 
CLOSE (Data_file); 
END; { Initialize nodes } 
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{.pa} 
PROCEDURE Initialize_Arcs; 


{ This procedure reads transfer path percentages from 
a data file on the disk } 


VAR 


T> 

L: INTEGERS 

A, 

K: CHARS 
Data_file: TEXT; 


BEGIN 


Blankline (23, 10)3 
GotoRC (23, 1)3 
WRITE (' Initializing the transfer path percentages ', 
‘ty 'using the file: ',Arcdata); 
Skip. :-= ' '; 
Arcdata := CONCAT (Aredata, ‘'.ard')}3 
ASSIGN (Data_file,Arcdata )}3 
RESET (Data_file); 


WHILE NOT EOF(Data_file) DO 
BEGIN 
READ (Data_file>T)3 


IF NOT EOF(Data_file) THEN 

BEGIN 

READ (Data_file, Skip); 

READ (Data_file, A); 

READ (Data_file, SkKip)3 

READ (Data_file, K)3 

READLN (Data_file,Transfer_Path ( T, A» K ])3 
END; { end if not end of file )} 


END; { end while not end of file } 
CLOSE (Data_file)s; 
ENDs; ¢€ Initialize ares } 
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{.pa} 
PROCEDURE Initialize_lengths; 


{ This procedure reads the assignment tour length data 
from a data file on the disk } 


VAR 


T: INTEGERS 
A: CHAR; 
Data_file: TEXT; 


BEGIN 


Blankline (23, 10),5 
GotoRC (23, 1)3 


Jy 
~~] 


WRITE (' Initializing assignment tour lengths using the file: 


Lengdata := CONCAT (Lengdata, '.led' ); 
ASSIGN (Data_file, Lengdata)}3 
RESET (Data_file); 


WHILE NOT EOF(Data_file) DO 
BEGIN 
READ (Data_file, T )}3 


IF NOT EOF(Data_file) THEN 

BEGIN 

READ (Data_file, Skip)s 

READ (Data_file, A }} 

READLN (Data_file,Billet_length ( T» A 1])3 
END} fend if not end of file } 


END; { end while not end of file } 
CLOSE (Data_file)}3 
END; { initialize lengths } 


‘, Lengdata )}3 
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{ .pa} 


PROCEDURE Initialize_labels;} { modified 11/05/87 -- TFS } 


{ This procedures establishes the display labels for 
tours, activities, and quarters left } 


BEGIN 


Tour (1] := ‘First Tour ‘3 
Tour (2] := ‘Second Tour ‘3 
Tour (3] := ‘Third Tour ‘3 
Tour [4] := ‘Fourth Tour '‘'} 
Tour [5] := ‘Fifth Tour ‘3 
Tour [6] := ‘Sixth Tour '‘'} 
Tour (7] := ‘Seventh Tour ‘3 
Tour [8] := ‘Eighth Tour '‘'} 
Tour (9] := 'Ninth Tour ‘3 
Tour [10] := ‘Tenth Tour ‘3 
Tour (11) := ‘Eleventh Tour ‘3 


Tour [12] := ‘Twelfth Tour ‘3 


Activity ([ 'A' ] := ‘Prof Trng ‘3 { modified 11/05/87 -- TFS } 
Activity (€ 'B' ] := ‘Prof Educ '; 
Activity L.'¢C* ]. <= “Jeint Educ. "3 
Activity [ 'D' ] := ‘Joint Tour '‘'; 
Activity [ 'E' 1] := ‘Fleet Unit ‘; 
Activity [ ‘'F' 1] := ‘Afloat Staff '‘; 
Activity [ ‘G' ] := ‘Shore '‘'} 

Activity [ 'H' ] := ‘Separation ‘3 
TLength [ 1 ] := ' with 1 qtr left's 
TLength ( 2 ] := ' with 2 qtrs left 's 
TLength ( 3 ] := ' with 3 qtrs left's 
TLength [ 4 ] := ' with 4% qtrs left's 
TLength ( 5 ] := ' with 5 qtrs left's 
TLength { 6 ] := ' with 6 qtrs left's 
TLength { 7 ] := ' with 7 qtrs left's 
TLength { 8 ] := ' with 8 qtrs left's 
TlLength [ 9 ] := ' with 9 qtrs left's 
TLength ( 10 ] := ‘' with 10 qtrs left'; 
TLength ( 11 ] := ‘' with 11 qtrs left's 
TLength ({ 12 ] := ' with 12 qtrs left'; 
TLength [ 13 ] := ' with 13 qtrs left's; 
TLength € 14 ] := ' with 14 qtrs left's 
TLength { 15 ] := ' with 15 qtrs left's 
TLength ( 16 ] := ' with 16 qtrs left's 


END; < Initialize labels } 
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Cay 
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{.pa)} 


PROCEDURE Initialize_hilimitss 
{ This procedure reads high limit data from a data file on the disk } 
VAR 


T: INTEGER} 
A: CHAR; 
Data_file: TEXT; 


BEGIN 


Blankline (23, 10)3 

GotoRC (23, 1)3 

WRITE (' Initializing the high limits using the file: ', Hilidata) ; 
Hilidata := CONCAT (Hilidata,'.hid' )3 

ASSIGN (Data_file, Hilidata)s 

RESET (Data_file); 


WHILE NOT EOF(Data_file) DO 
BEGIN 
READ (Data_file, T )3 


IF NOT EOF(Data_file) THEN 

BEGIN 

READ (Data_file, Skip); 

READ (Data_file, A )} 

READ (Data_file, Skip); 

READLN (Data_file, HiLimit [€ T, A J])3 
END; {< end if not end of file if } 


END} € end while not EOF loop } 
CLOSE (Data_file); 
END; {€ Hilimit procedure } 
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{.pa) 

PROCEDURE Initialize_lolimits;s 

{ This procedure reads low limit data from a disk file } 
VAR 


T: INTEGER} 
A: CHAR} 
Data_file: TEXT; 


BEGIN 


Blankline (23, 10)3 

GotoRC (23, 1)3 

WRITE (' Initializing Low Limits using the file: ', Lolidata)s 
Lolidata := CONCAT (Lolidata, '.lod' }3 

ASSIGN (Data_file, Lolidata); 

RESET (Data_file); 


WHILE NOT EOF(Data_file) 00 
BEGIN 
READ (OData_file, T }3 


IF NOT EOF(Data_file) THEN 

BEGIN 

READ (Data_file, Skip); 

READ (Data_file, A }}3 

READ (Data_file, Skip); 

READLN (Data_file, Lolimit € T, A J])3 
END; { end if not end of file } 


END; <€ end while not end of file } 
CLOSE (Data_ file); 


Cay 
\O 


END; {€ Lolimit procedure } 
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{.pa) 


PROCEDURE DirList; 


{ 
This is a simple program to list out the directory of the 
current (logged) drive in accordance with filetype chosen. 
MODIFIED BY RBA } 
type 
Charl2arr = array € 1..12 ] of Chars 
String20 = stringl 20 ]3 
RegRec = 
record 
Ax, Bx, Cx, DX» BP, Si, DI; DS; ES> Flags : Integer} 
ends 
var 
Regs : RegRec}s 
DTA : array [ 1..43 1 of Byte} 
Mask : Charl2arrs 
NamR : String203 
X»Y,Error, I : Integer; 


begin € main body of program DirList } 


FillChar(D0TA,SizeOf(DTA),0)3 { Initialize the DTA buffer } 
FillChar(Mask,SizeOf (Mask );,0)35 { Initialize the mask } 
FillChar(NamR ,SizeOf(NamR ),0)3 { Initialize the file name ) 
Regs.Ax ;:= $1A00;3 { Function used to set the DTA } 
Regs.DS := Seg(DTA); { store the parameter segment in DS } 
Regs.DX := Ofs(DTA); { * ri a offset in DX } 
MSDos( Regs )3 { Set DTA location } 
Error := 0} 

IF Choice = 'l1' THEN Mask := '?77277?72?7?.nod'3 

IF Choice = '2' THEN Mask := '?772777?7?.ard's 

IF Choice = '3' THEN Mask := '?77727777?7.led'$ 

IF Choice = 'G' THEN Mask ;:= '?772727727?.hid's 

IF Choice = '5' THEN Mask := '27272777777.lod'$ 

{ Use global search ) 

Regs.AX := $G4E003 { Get first directory entry )} 
Regs.DS := SegiMask)3 { Point to the file Mask } 
Regs .DX := Ofs(Mask })}3 
Regs.CxX := 223 { Store the option } 
MSDos( Regs )3 {€ Execute MSDos call } 
Error := Regs.AX and $FF;} {€ Get Error return } 
I := 13 { initialize ‘I' to the first element } 


if (Error = 0) then 


repeat 
NamR( I) := Chr(Mem({Seg( DTA): Ofs(DFAi+2o+I) 15 
I := I + 13s 
until not (NamRII-1] in (' '..' 'J)) or (1 °20)5 
NamR(0)] := Chr(I-1)3 { set string length because assigning ) 


{ by element does not set length } 
IF (Error = 0) THEN : 


BEGIN 
% := LENGTH (NamR )$3 
Y := K-G}5 


DELETE (NamR i »% V3 
WRITELN(NamR )5 
ERD 4 


while (Error = 0) do begin 


Qo) 


Error := 03 


Regs.AX := $4F00}3 { Function used to get the next } 
{ directory entry )} 
Regs.CX := 223 { Set the file option } 
MSDos( Regs )}3 { Call NSDos } 
Error := Regs.AX and $FF;3 { get the Error return } 
I := 13 
repeat 
NamR(I] := Chr(Mem{Seg(0TA):Ofs(O0TA)+29+I) )3 
I := I + 13 
until not (NamR{I-1] in (' '..' 'J] ) or (I > 2033 


NamR[O] := ChrlI-1l)3 
IF (Error = 0) THEN 


BEGIN 
xX := LENGTH (NamR)3 
Y := %-43 


DELETE (NamR,>Y»4}3 
WRITELN(NamR )3 
END; ¢ error if} 


END; ¢€ while do loop } 


end; { of procedure DirLlist } 


Of 


APPENDIX G 
SWOPATH CALCULATIONS INCLUDE FILE 
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{ This file contains the following procedures 


Ask_for_years 
Calculations 


PROCEDURE Ask_for_yearss 
VAR 


Years_wanted, 
Qtrs_wanted: INTEGER} 


BEGIN 
REPEAT { until NRYears answer is an integer } 


REPEAT {( until NRQuarters answer is an integer } 
Blankline (23, 1)3 

WRITE (' Choose 0 years & 0 quarters to quit.')3 
DELAY (2000 )3 

Blankline (23, 1)3 


REPEAT { until correct answer } 
Blankline (24, 1)3 
WRITE (' Do you desire to reinitialize','', 
‘(set to zero) yrs & qtrs? (Y/N) ')3 
READ (Kbd, Answer )}3 
Correct_answer (Answer, OK_answer )5 
UNTIL OK_answer = true} 


IF Answer in ['Y','y'] THEN 


BEGIN 
NRQuarters := 03 
YRCount := O03 
Quarter := 03 
TempCount := 03 


END} {reset yrs and qtrs to zero ) 

Blankline (24, 1)5 

WRITE (‘How many years: <CR>and quarters: <CR>do you want to run the model?' 
GotoRC (24, 16)3 


{($I-)} READ (Years_wanted) ($I+)5 
Ok_answer := (IORESULT = 0)3 (TURBO PASCAL function to check input type } 


IF NOT OkK_answer THEN Invalid_answers 
UNTIL OkK_answer = true}3 


GotoRC (24, 349)3 
{$I-} READ (Qtrs_wanted) ($1+4)3 
Ok_answer := (IORESULT = 0)3} {TURBO PASCAL function to check input type } 


IF (Qtrs_wanted < 0) OR (Qtrs_wanted > 3! THEN Ok_answer := false} 
IF NOT OK_answer THEN Invalid_answers 
UNTIL OK_answer = true} 


NRQuarters := Qtrs_wanted + (Years_wanted * 4)}3 
IF (Qtrs_wanted + (Years_wanted * 4! = 0) THEN 
BEGIN 


Color ( white, red}}3 


BlankKline (24, 1)5 

WRITE ('You have chosen 0 yrs & 0 qtrs. Returning to selection menu. '); 
DELAY (2000); 

Color ( white, blue)s 

Blankline (24, 1);3 

EXITs { Exit from ask for years procedure } 

END} {¢ if NRquarters = 0 } 


Calculationss 


END; CAsk_for_years} 


{.pa} 
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PROCEDURE Calculationss { Modified 20 October 1985 -- RBA } 
{ Modified 05 November 1897 -- TFS } 
VAR 


Temp » 

Temporary: REALs5 

el» 

LL, 

L: INTEGERs 

AA: CHAR, 

Data_file: TEXT; 
Transfers: Two_Dim_Reals 


BEGIN 


Toomany: =falses 
Blankline (24, 1)3 


WRITE (' Beginning calculations. ")5 
QtrCount:= 03 { initialize quarter counter } 
FOR TT := 12 DOWNTO 1 DO { initialize stocks } 
BEGIN 
FOR AA := 'A' TO 'H' DO 
BEGIN 
FOR LL := 1 TO 16 DO 
BEGIN 


Temp_billet_node [TT, AA, LL] := Billet_node [{TT, AA, LL]} 
END; ¢€ LL loop } 


END; { AA loop } 
ENO} ¢€ TT loop } 


REPEAT 
QtrCount := QtrCount + 13 { increment quarter counter } 
FOR T:= 12 DOWNTO 1 DO 
BEGIN {T Loop) 
FOR A:= ‘A‘t TO ‘H' DBO 
BEGIN {A loop - mathematical calculations} 
L:= 1s Clength ef billet nodes in quarters} 
{ Beginning of modifications 10/20/85 } 
REPEAT { shift officers down one quarter } 
Temp_Billet_node { T, A. L | := Temp_Billet_node { T, A», L#1]3 
Temp_billet_node [ 1, ‘HH’, L ] := 0.03 
L:=L +13 
UNTIL L = 16 4 € 11/05/87 -- TFS } 


{ compute transfers } 


If T <> 1 THEN 

BEGIN 

Transfers { T-1, A] := 
(Temp_Billet_Node [ T-1, ‘A' 1 ) * Transfer_Path [(T-1,'A',A]) + 
(Temp_Billet_Node { T-1, 'B' , 1 ] * Transfer_Path [T-1,'B',A]) + 
(Temp_Billet_Node [ T-1, ‘C' , 1 1] * Transfer_Path [T-1,'C',A]) + 


(Temp_Billet_Node [ T-1, 'D' 
(Temp_Billet_Node [ T-l, ‘E' 
(Temp_Billet_Node [ T-l, 'F' 
(Temp_Billet_Node [ T-1l, 'G' 


] * Transfer_Path [T-1,'D',AJ) + 
] * Transfer_Path [T-1,'E',A]) + 
]) * Transfer_Path [T-1,'F',A]) + 
] 
{ 


wv we we Zw 


me Re 


* Transfer_Path [T-1,'G',A])3 
compute temporary stocks } 

Temporary := Temp_Billet_Node [ T, A, Billet_Length [ T, A ]]; 

{ sum transfers and temporary stocks ) 


Temp_Billet_Node [ T, A, Billet_Length [ T, A ]]:= 
Transfers ([T-1, A] + Temporary; 


{ compute total stocks ) 


Final_totals := false; 

Billet_totals (T,A)}3 

END 

ELSE { now T equals 1 } 
BEGIN { 11/05/87 -- TFS } 


Temporary := Temp_billet_node [ T, A, Billet_length [ T>, A I]]}3 
IF A <> "5" THEN 


BEGIN 

Temp_billet_node [ T,» A» Billet_length [T,» A ]]:= 
Temporary3 

END 

ELSE 

BEGIN 


Temp_billet_node [ T>» A» Billet_length [ T, A ]] := 
Temporary + Accessions}3 
END; { IF A = €} 


Final_totals := false} 
Billet_totals (T,A)} 
END; {if t = 0 } 


{ End of modifications 10/20/85 } 
{ test for Hi limit } 


IF Temnnp_billet_total ( T, A ] > Hilimit ( T, A ] THEN 
BEGIN 

Violation := true} 

High_warning; 


IF Stop_calce_T THEN EXIT} 
END; {if high warning) 
{ test for Low limit ) 


IF Temp_billet_total [ T, A 1] < Lolimit [ T, A ] THEN 
BEGIN 

Violation := true} 

Low_warning} 


IF Stop_cale_T THEN EXIT} 
END; { if low warning } 
END; { A Loop } 
END} {T Loop and mathematical calculations) 
UNTIL (QtrCount = NRQuarters) OR Toomany; 


IF NOT Violation THEN 

BEGIN 

TempCount := TempCount + QtrCounts 
YrCount := TRUNC (TempCount/4); 


IF (¢(Y¥rCount * 4) > Tempcount) THEN YrCount := YrCount - 13 


Quarter := TempCount - (YrCount * G)}5 


FOR TT := 12 DOWNTO 1 OO 
BEGIN 


FOR AA := ‘A‘ TO 'H' DO 


64 


BEGIN 


FOR LL := 1 TO 16 DO 

BEGIN 

Billet_node [TT, AA», LL] := Temp_Billet_node [TT, AA, LL]; 
END; { LL loop } 


END; € AA loop } 
END; {€ TT loop } 


Final_totals := true} 
All_billet_totals3 


END; < violations if } 
END; {calculations} 


APPENDIX H 
SWOPATH SCREENS INCLUDE FILE 
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{€ This file contains the following procedures 


Ochoices {€ modified 11/05/87 -- TFS )} 
Dchanges 

From_pathsern 

To_pathsern 


PROCEDURE ODchoices}3 


€ This procedure provides the display screen and answer evaluation 
for the choices indicated ) 


VAR 

OK_range >» 

OK_tour, 

COk_activity: Booleans 
BEGIN 

Ok_tour := false} 


OK_activity := false; 
GotoRC (1, 1)3 


WRITELN (' ' ,Chg_var )3 € 11/05/87 -- TFS )} 
WRITELN3WRITELN} 

WRITELN (' TOUR ACTIVITY ' )3 

WRITELN; 

WRITELN (' l. FIRST A. PROFESSIONAL TRNG |); 
WRITELN (' 2. SECOND B. PROFESSIONAL EDUC ')3 
WRITELN ( ° 3. THIRD C. JOINT EDUC ")3 
WRITELN (' G. FOURTH 0. JOINT TOUR ")s 
WRITELN (' 5. FIFTH E. FLEET UNIT "Ds 
WRITELN (' 6. SIXTH F. AFLOAT STAFF "Ds 
WRITELN (' 7. SEVENTH G. SHORE ")s 
WRITELN (' 8. EIGHTH H. SEPARATION 3 
WRITELN (' 9. NINTH' Ds 

WRITELN (' 10. TENTH‘ )3 

WRITELN ('° 11. ELEVENTH' )3 

WRITELN (' 12. TWELFTH' )3 

GotoRC (22,5)3 

WRITELN (' TOUR: (type number<CR>) ACTIVITY: (type letter )' ); 


REPEAT € Until Ok_tour true )} 
REPEAT € Until Ok_activity true ) 


IF NOT Ok_tour OR NOT Ok_range THEN 
BEGIN 
GotoRC (22, 194)3 
C($I-) READ ( T ) C€$I+) 3 Cread TOUR number but first cancel I/0 ) 
{ checking to prevent error if non integer }) 
€ Key is struck accidentally. Then turn back on ) 
Ok_tour := (IORESULT = 0); =¢€ TURBO PASCAL I/O error check. If input ) 
{ was in fact correct i.e. an integer then } 
€ the TB function IORESULT will return a 0 ) 


IF (T >= 1) AND (T <= 12) THEN Ok_range := true}; 
IF (T < 1) OR (T > 12) THEN Ok_range := false; 
IF NOT Ok_tour OR NOT OK_range THEN Wrong_answer 3 


END; € OkK_tour correct if } 
UNTIL (OK_tour AND OK_range) = true} 
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IF NOT Ok_activity THEN 

BEGIN 

GotoRC (22, 46})3 

READ (Kbd, A )3 Cread ASSIGNMENT letter} 

A := UPCASE ( A )3 

First := ‘A's Last := 'H' 3 OK_choice := trues 
Correct_choice ( A, First, Last, OK_choice)3 
Ok_activity := Ok_choices 

END; { if not ok activity } 


UNTIL (OK_tour and OkK_activity ) = trues 


Clearscreen3 
ENDs} {choices) 


{HEHE IEE EI HEE IE HEI HEHE HEHE IEE EEE IIH IE IE HEE HEHE EE HIE IE IE EEE HEHEHE FHI HHH HH HHI HHI HHH HHH HHH HK EKER KK 
KH SIH KKH HI IH KI I II I I I EI IK IH I II IIH HK RAK HK KKK E RK KRHA) 


{.pa} 


PROCEDURE Dchangess3 


{ This procedure provides the choice menu display and 
also evaluates the responses } 


BEGIN 
IF NOT (POS ('.',Nodedata) = 0) THEN Strip (Nodedata)3 
1F NOT (POS ('.',Arcdata) = 0) THEN Strip (Arcdata)}3 
IF NOT (POS ('.',Lenadata) = 0) THEN Strip (Lengdata)s 
IF NOT (POS ('.',Hilidata) = 0) THEN Strip (Hilidata)3 
IF NOT (POS (‘'.',Lolidata) = 0) THEN Strip (Lolidata)s 
Clearscreen3 


GotoRC (3, 535 
WRITELN (Chg_var )3 


WRITELN$ 

WRITELN (' Vata: Data files: )5 
WRITELN3 

GotoRC (8, 1}3 

WRITELN (' 0. ',Choice_zero}3 

WRITELN (° 1. Number of officers at each assignment: ', Nodedata }3 
WRITELN (' 2. Transfer path percentages: ‘, Arcdata )5 
WRITELN (' 3. Assignment tour lengths: ‘, Lengdata)s3 
WRITELN (' G. High limits: *, Hilidata )5 
WRITELN (° 5. Low limits: ‘, Lolidata )3 
WRITELNsWRITELN3 


REPEAT {until choice correct } 
GotoRC (16,1)3 


WRITE (' Type your selection [05,1,2,3,4,5]: ')Js5 

READ (Kbd, Choice)3 Cread input into var selection) 

First := ‘O's Last := ‘5's OkK_choice := true} (Cinputs for correct_choice 

Correct_Choice (Choice, First, Last, OK_choice}} { procedure. 
} 


UNTIL OK_choice = true} 


END; {Dchanges) 
36969 CIEE IE IE EIEIO IE FEI IE IE FEE 36 36 33 EFC IEE IE 36 ESE FE IE FE FE IEE FE JE FE FE FE 9 6 J EE IE 36 96-36 36 36 36 96 36 3G 3E 3 3 IE IE IE C36 96 96 3 36 3 EE 9 9 9K 
JIE EI IE IE IE IEE HE IE SE IE IEE IEE SE IEIE FEIE IE FE IE IE IESE IEIE IEICE IEE FE EE J FE aE JE aE 96 36 96 36 36 36 36 36 36 36 EE 969 IE 96 IE IE IE 3 IE 3G 9 36 36 96 96 96 96 393} 


{par 


PROCEDURE From_pathscrn3 


{ This procedure simply draws the illustration on the screen } 


BEGIN 

Clearscreens 

WRITELNE ' {--- ‘ys 
WRITELNE ' a ")3 
WRITELNE ' 7 ")5 
WRITELNE ' fJr-wrrA- ‘)3 
WRITELNE' / ")5 
WRITELNE ' 7 "ys 


6/7 


WRITELN( ' PaaS 5; 
WRITELN( ' / an 
WRITELN( ' y om 
WRITELN( ' a ae 
WRITELN( ' < hy 
WRITELN( ' \ 4 
WRITELN(' = --_- == "Dy 
WRITELN( ' ~ ")5 
WRITELN( ' \ a 
WRITELN( ' \errrcc-- "yy 
WRITELNE \ "3 
WRITELN( ' \ — 
WRITELN( ' ee: an 
WRITELN( ' \ ne 
WRITELN( ' \ a 
WRITELNI ' -— ine 


END; € From_pathsecrn } 


{ 3€ 396 96 3 36H FE HE HE IE HE IE IE IE HE IE IE IE IE FE IE FE IE IE 36 IE IE FEE IE IE IEE FE HE HE FETE HE 9E FE IE IE HE 36 3E IE 26 IE IE FE IE HE FE 9G FE IEE 36 3G 3E HEE IE IE 9 9G 96 IE HE IE IEE IE 
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PROCEDURE To_pathscrn} 

{ This procedure simply draws the illustration on the screen ) 
BEGIN 


Clearscreen}3 

WRITELN (° } }  ©— ween \ “yy 
WRITELN (' \ ‘yy 
WRITELN (' \ "5 
WRITELN (' ae een eee = = & \ ")5 
WRITELN ('° \ yy 
WRITELN (' \ i) 
WRITELN ep ween ennenae aa eee = & Ne 5 
WRITELN (' \ "yy 
WRITELN (' \ "ys 
WRITELN ('° } } © 0 we eee meee nnn \ ‘yy 
WRITELN (' > 5 
WRITELN (' 7, "yy 
WRITELN (' Sse ee eee een aena 2eee / ')3 
WRITELN (' / ys 
WRITELN (' / "yy 
WRITELN (° } } } ©— 2 a ee em eee nee / "ys 
WRITELN (' / “yy 
WRITELN (' / "yy 
WRITELN weeeenee2e-2 = / 5 


END; { to pathsern ) 


APPENDIX I 
SWOPATH DISPLAYS INCLUDE FILE 


Disp_billets 


PROCEDURE Disp_Assign; 
This procedure provides the activity v.s. all tours choices and displays 
VAR 


x: INTEGER; 
BEGIN 
REPEAT until finished 
Finished:= falses 
Clearscreen} 


Center (03, ‘Which activity are you interested in?' )3 
WRITELN$WRITELN3WRITELN} 


WRITELN (' A. Professional Training' )3 11/05/87 - TFS 
WRITELN (' B. Professional Education' )3 

WRITELN (' Cea ioint.Edue *); 

WRITELN (' D. Joint Tour ")3 

WRITELN (' E. Fleet Unit' )3 

WRITELN (' F. Afloat Staff'J3 

WRITELN (' G. Shore ')s 

WRITELN (' H. Separation’ )3 

WRITELN3 


REPEAT until choice correct 

GotoRC (18,15)3 

WRITE ('Type your choice: ')}3 

READ (Kbd, AJ)3 read input into var selection 

A := UPCASE (A)})3 

First := 'A'3; Last := ‘H's; OkK_choice := true; 
Correct_choice ( A, First, Last, OkK_choice)3 

UNTIL OK_choice = true 3 

Billet_total [ T, A ] := Billet _node [ T, A, 1 ] + 


Billet_node T» Ay 2 1] + Billet_node [ T, A, 3 ] 
Billet_node T, A> ¢ ] + Billet_node [ T, A, 5 ] 
Billet_node T, A, 6 ] + Billet_node [ T> A, 7 ] 
Billet_node A, 8 ] + Billet_node [ T, A, 9 ] 


“ 


Billet_node T,», A,» 10 ] + Billet_node [ T, A, ll + 
Billet_node T, A» 12 1 + Billet_node [ T, A, 13 + 
Billet node T, Ay 14 ] + Billet_node [ T, A, 15 + 
Billet_node [ T, A, 16 ]3 
Clearscreen}3 
WRITELN3 
WRITELN (' For ',Yrcount,' year(s) and ', 
Quarter,' quarter(s) calculations. '); 
WRITELN3 
WRITELN (' For: ‘, Activity [ A ])}3 
GotoRC (6, 1)}3 
WRITELN (' TOURS « <0 4-0 Sees 
WRITELN3 
GotoRC (8, 10)}3 
WRITELN ('FIRST SECOND THIRD FOURTH FIFTH SIXTH' )3 
GotoRC (19, 8)}3 
WRITELN ( ‘SEVENTH EIGHTH NINTH TENTH ELEVENTH TWELFTH' )3 
T:=13 
x:= 53 


GotoRC (10, X)3 
Billet total [{ T, A ] := Billet_node [ T, A, 1 ] + 
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Billet_node [ T, A, 2 1] + Billet_node [ T» A, 3 ] + 
Billet_node [ T, A, 4 ] + Billet_node [ T,» A, 5 ] + 
Billet_node [ T, A, 6 ] + Billet_node [ T, A» 7 ] + 
Billet_node [ T>» A, 8 ] + Billet_node [ T, A, 9 ] + 
Billet_node [ T, A, 10 ] + Billet_node [ T, A, 11 ] + 
Billet_node [ T, A, 12 ] + Billet_node [ T, A, 13 ] + 
Billet _node [ T, A, 14 ] + Billet_node [ T, A, 15 ] + 
Billet_node [ T, A» 16 ]5 
WRITE (ROUND (Billet_total [ T, A ]):10)5 
FOR T := 2 TO 6 DO 
BEGIN 
X := X #¢ 105 
GotoRC (10, X)5 
Billet_total [ T, A ] := Billet_node [ T, A, 1 ] + 
Billet_node [ T, A, 2 ] + Billet_node [ T, A, 3 ] + 
Billet_node ( T, A, 4 ] + Billet_node [ T, A, 5 ] + 
Billet_node [ T, A, 6 ] + Billet_node [ T, A, 7 ] + 
Billet_node [ T, A, 8 1] + Billet_node [ T, A, 9 ] + 
Billet_node [ T, A, 10 ] + Billet_node [ T, A, 11 ] + 
Billet_node [ T, A, 12 ] + Billet_node [ T, A, 13 ] + 
Billet_node [ T, A, 14 1] + Billet_node [ T, A, 15 ] + 
Billet_node [ T, A, 16 ]3 
WRITE (ROUND (Billet_total [ T, A ]):10)3 
END; 
T:=735 
X:= Sy 
GotoRC (16, X)s5 
Billet_total [ T, A 1] := Billet_node [ T, A, 1 ] + 
Billet_node [ T, A, 2 ] + Billet_node [ T, A, 3 ] + 
Billet_node [ T, A, 4 ] + Billet_node [ T, A, 5 ] + 
Billet_node [ T, A, 6 ] + Billet_node [ T, A, 7 ] + 
Billet_node [ T, A, 8 ] + Billet_node [ T, A, 9 ] + 
Billet_node [ T, A, 10 1] + Billet_node [ T, A, 11 ] + 
Billet_node [ T, A», 12 ] + Billet_node [ T,» A, 13 ] + 
Billet_node [ T, A, 14 ] + Billet_node [ T, A, 15 ] + 
Billet_node [( T, A, 16 ]5 
WRITE (ROUND (Billet_total [ T, A 1):10)3 
FOR T := 8 TQ 12 OO 
BEGIN 
Xx := & + 103 
GotoRC (16, X)3 
Billet_total [ T, A ] := Billet_node [ T, A, 1 ] + 
Billet_node ( T, A, 2 ] + Billet_node [ T, A, 3 ] + 
Billet node [ T» A» 4 ] + Billet_node [ T, A, 5 ] + 
Billet_node [ T, A, 6 ] + Billet_node [ T, A, 7 ] + 
Billet_node [ T, A, 8 ] + Billet_node [ T, A, 9 ] + 
Billet_node [ T, A, 10 ] + Billet_node [ T, A, 11 ] + 
Billet_node [ T, A, 12 }] + Billet_node [ T, A, 13 ] + 
Billet_node [ T, A, 14 ] + Billet_node [ T, A, 15 ] + 
Billet_node [ T, A, 16 ]5 
WRITE (ROUND (Billet_total [ T, A J]1:10)5 
END} 
REPEAT until answer correct 
Center (19, ‘Do you desire to see another activity breakout? (Y/N) ')5 
READ (Kbd, Answer )3 
Ok_answer := true} 


Correct_answer (Answer, OK_answer !3 


UNTIL OK_answer = trues 


IF Answer in [ 
BEGIN 
Clearscreen3 
Disp_Assign}3 
ENDs 


IF Answer in [s‘'N','n' 


UNTIL Finished = 


Clearscreens 


true} 


] THEN Finished := 


"'y’,'y" ) Ther 


true} 


END; ODisp_Assign 
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PROCEDURE Disp_Tours; 


This procedure provides the tour v.s. all activities choices and displays 


VAR 

OK_range,» 

OK_ tour, 

Ok_activity: Boolean; 
BEGIN 

OK_range := false; 

OK_tour := false; 

OK_activity := false} 

REPEAT until finished 


Clearscreens 


GotoRC (3, 5)3 
CENTER (3,'Which Tour do you wish to see displayed?' )} 
WRITELN;WRITELN3 


WRITELN €' TOUR "D3 
WRITELNs 
WRITELN (' 13 SLRS 1 "3 
WRITELN (' 2. SECOND os 
WRITELN (' 3. THIRD gee 
WRITELN (' 4. FOURTH ")y 
WRITELN (' 5. FIFTH "ys 
WRITELN (' 6. SIXTH ")3 
WRITELN (' 7. SEVENTH ‘)3 
WRITELN (' 8. EIGHTH "Js 
WRITELN (' 9, NINTH‘ )3 
WRITELN (' 10. TENTH' )3 
WRITELN (' 11. ELEVENTH )}3 
WRITELN (' 12. TWELFTH' )3 
GotoRC (22, 5)3 
WRITELN (' TOUR: {type number<CR>)' )3 
REPEAT Until Ok_tour and OK_range both true 
GotoRC (22, 14)3 
$I- READ ( T ) $I+ 3 read TOUR number but first cancel I/O 
checking to prevent error if non integer 
Key is struck accidentally. Then turn back on 
OK_tour := (IORESULT = 0)3 TURBO PASCAL I/O error check. If input 
was in fact correct i.e. an integer then 
the TB function IORESULT will return a 0 
IF (T >= 1) AND (T <= 12) THEN Ok_range ;:= true; 
IF {(T < 1) OR (T > 12) THEN OkK_range := false; 
IF NOT OkK_tour OR NOT Ok_range THEN Wrong_answer} 
UNTIL (OK_tour AND Ok_range) = true; 
FOR A := 'A‘ TO ‘H‘' DO 
BEGIN 


Billet_total { T, A } 


:= Billet_node [ T, A, 1] + 


Billet_node { T», A, 2 } + Billet_node { T, A, 3 ] + 
Billet_node [ T, A, 4 } + Billet_node { T, A, 5 } + 
Billet_node { T, A, 6 } + Billet_node [ T, A, 7 ] + 
Billet_node { T, A, 8 } + Billet_node [ T, A, 9 } + 
Billet_node { T, A, 10 }) + Billet_node [{ T, A, 11 ] + 
Billet_node [{ T, A, 12 } + Billet_node { T, A, 13 ] + 
Billet _node { T, A, 1¢4¢ ] + Billet_node { T, A, 15 } + 
Billet_node { T, Ay 16 }3 

END; for loop 

11/05/87 -- TFS 
Clearscreens 
WRITELN (' For ',;Yrcount,' year(s) and ‘,Quarter,' quarter(s) calcula 


tions. ')} 


7\ 


WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 


Tour_sum [{ T ] 


WRITELN 


REPEAT 


(| For: ', Tour us! Jas 
(2 os 
(* (AeGtavity: Number of officers' ); 
(ee Daag 
(' Professional Training : ‘», ROUND (Billet_total [ T, '‘A' J]):10); 
(! eas 
(' Professional Education : ', ROUND (Billet_total { T, 'B' J]):10); 
(! "ys 
(' Joint Educ : ‘, ROUND (Billet_total [ T, ‘'C‘' ]):10)3 
( ")3 
(' Joint Tour : ', ROUND (Billet_total ({ T, 'D' 1):10)3 
(' ts)3 
(' Fleet Unit : ', ROUND (Billet_total [ T, ‘E' ]):10)3 
i as 
(' Afloat Staff : ', ROUND (Billet_total [ T, 'F' 1]):10)3 
C? ")3 
(' Shore : ', ROUND (Billet_total [ T, 'G' ]):10);3 
(' os 
(' Separation : ', ROUND (Billet_total ( T, ‘H' 1]):10)3 
(~ ys 
:= Billet_total [ T, ‘A'] + Billet_total [ T, 'B'] + 
Billet_total { T, ‘'C'] + Billet_total [ T, 'D'] + 
Billet_total ( T, 'E'] + Billet_total [ T, 'F'] + 


Billet_total [ T, 'G'] + Billet_total [ T, 
*, ROUND (Tour_sum (€ T 1]):10)3 


"H' J5 
(' Total officers 


until answer correct 


Blankline (24 ,1)3 


WRITE ('Do you desire to see another tour breakout? (Y/N) 


READ 


OK_answer := 


cays 
(Kbd, Answer )3 
true; 


Correct_answer (Answer, Ok_answer )}3 


UNTIL Ok_answer = 


IF Answer in [ 
BEGIN 


true} 
'Y','y'] THEN 


Disp_tourss3 


END 5 


IF Answer in [ 
UNTIL Finished = 


'N','n' ] THEN Finished := 


true} 


true} 


Clearscreen} 


END $ 


Disp_Tours 
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PROCEDURE Disp_paths_from} 
This procedure displays the transfer path percentages FROM 


VAR 


Ok_selection, 


Ok_ 


tour » 


Ok_activity: BOOLEAN; 


i 


Ry 


RR : 


BEGItl 


CHAR 5 


Ok_tour := 


Ok_activity 
Finished 


INTEGER $ 


false; 
:= false} 


:= false} 


REPEAT wumtil finished 


REPEAT 
Ok_selection := 


until tour/activity selaction ok 
true $ 


Clearscreen} 


Chg_var := 


'Which assignment do you wish to see the transfer paths from?'} 


Dcho ices 3 


Clearscreen;3 


IF (T = 12) THEN 

BEGIN 

OK_selection := false; 

Color ( white, red)}3 

Blankline (24,1)3 

WRITE (' There are no transfer paths from Twelfth Tour assignments. ' J); 
DELAY (2000); 

Color ( white, blue)}3 

Blankline (24,1); 

END 3 if tour 12 is chosen 


IF A in ('H'] THEN 

BEGIN 

OkK_selection := false; 

Color ( white, red); 

Blankline (24,1)3 

WRITE (' There are no transfer paths from Separation assignments. ' )3 
DELAY (2000); 

Color ( white, blue); 

Blankline (24,1)3 

END; if tour 12 is chosen 


UNTIL OK_selection = true} 


From_pathsern; 
GotoRC (6, 5)3 


WRITELN (' Display for ')} 

GotoRC (7, 5)3 

VIRITELN (° ',YrCount,' years and'); 
WRITE (' ',Quarter,' quarters' )}3 
GotoRC (10, 5)3 

WRITE (' FROM" )3 


GotoRC(11, 2)3 

WRITE (Tour [ T ],Activity ( A 1)3 

GotoRC (13, 6)3 

WRITE (ROUND (Billet _nodelT,A,11]),' officers’ )3 

WRITE (' will be transferred. '); 

R := 1; 

RR := 23 

FOR ZZ := 'A' TO 'H' DO 

BEGIN 

GotoRC ( R» 40)3 

WRITE ('TO ‘', Tour ( T+l 1], Activity ( 22 1})3 

GotoRC (RR>» 42)3 

WRITE ('',(Transfer_pathIT,A,ZZ1*100):4:0,'7 or ' 
ROUND (( Billet Cee ee A»,ZZ1)),' officers' ); 


R:=R + 33 
RR :;:= RR + 33 
END} 


REPEAT until answer correct 

Blankline (2¢, 1)}3 

WRITE (‘Do you desire to see another transfer path breakout? (Y/N) ')3 
READ (Kbd, Answer )}3 

Correct_answer (Answer, QOK_answer )} 

UNTIL OK_answer = true} 


Ok_tour := false; to prevent procedure from 
OkK_activity := false; repeating endlessly 


IF Answer in [('N'»,'n'] THEN Finished:= True; 
UNTIL Finished = true} 
END; Disp_paths_from 
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ea 
PROCEDURE Disp_paths_to; 


This procedure displays the transfer path percentages TO 


VAR 


Ok_selection, 
OK_tour > 

Ok_activity: BOOLEAN; 
ZZ : CHARS 

R, 

RR : INTEGER; 

Total: REAL; 


BEGIN 


©); 


Ok_tour := false; 
Ok_activity := false; 
Finished := false} 


REPEAT until finished 
REPEAT until ok selection 


Ok_selection := true} 
Clearscreen;s 
Chg_var := ‘Which assignment do you wish to see the transfer paths to7?7'; 


Dchoices;} 
Clearscreen} 


IF (T = 1) THEN 

BEGIN 

Ok_selection := false} 

Color ( white, red)}3 

Blankline (24,1)3 

WRITE (' There are no transfer paths to First Tour assignments. '); 
DELAY (2000)3 

Color ( white, blue)}3 

Blankline (29, 1)5 

END; if tour 12 is chosen 


UNTIL Ok_selection = trues 


To_pathscrn3 

GotoRC (6, 55)5 

WRITELN (' Display for ‘33 

GotoRC (7, 55)3 

WRITELN(YrCount,' years and' )3 

GotoRC (8, 55)3 

WRITE (Quarter,' quarters' )3 

GotoRC (10, 55)3 

WRITELN (' TO' )5 

GotoRC (11, 55)}3 

WRITELN (Tour [( T )],Activity ( A ])3 
GotoRC (18, 45)3 

WRITE ( 'NOTE: Percentages reflect the Z% of' )}3 
GotoRC (19, 45)3 

WRITE (‘officers transferred OUT OF the' )3 
GotoRC (20, 45)3 

WRITE (‘indicated "FROM" assignment. ' )5 

R := 15 

RR := 23 

Total := 05 


FOR 2Z := ‘A' TO ‘G‘ DO 
BEGIN 
GotoRC ( R, 1)3 
WRITELN ('FROM ', Tour [( T-1 1], Activity ( 2Z ])3 
GotoRC (RR, 1)35 
WRITE ('',(Transfer_path(T-1,2Z,A]*100): 4: 0,'¢ or ' 
ROUND ((Billet_nodelT-1,22, 1)*( Tranasfer..pe (HOT! -1,2Z,A])),' officers 


Total := Total + ((Billet_nodelT-1,2ZZ,1])*( Transfer_path[(T-1,2Z,A]))3 


R:=R + 33 
RR := RR + 33 
END; 


GotoRC (13, 53)3 
WRITE (ROUND (Total), ' officers' )3 


74 


END} 


REPEAT until answer correct 

Blankline (24,1)} 

WRITE ('Do you desire to see another transfer path breakout? (Y/N) ')3 
READ (Kbd, Answer )3 

Correct_answer (Answer, OkK_answer )}5 

UNTIL OK_answer = true} 


OK_tour := falses to prevent procedure from 
Ok_activity := false; repeating endlessly 


IF Answer in ['N','n'] THEN Finished:= True} 
UNTIL Finished = trues 
Disp_paths_to 
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PROCEDURE Disp_billetss 
This procedure provides the billet by tour length choices and displays 


VAR 
Officer_totals: REALs 
x : INTEGERS 
Finished, 
Ok_tour, 
Ok_activity: BOOLEAN; 
BEGIN 
Ok_tour := false} 
Ok_activity := false; 
REPEAT until finished 
Clearscreens 


Chg_var := ‘Hhich assignment do you wish to see?'}3 
Dchoices} 
Clearscreens 


WRITELNSWRITELNS$ 
WRITELN (° After ', Yrcount,' year(s) "» 
Quarter,' quarter(s)' )3 
WRITELN ('° ',Tour [(T],' ',Activity [A]J)s5 
WRITELN (' Tour Length of '; 
Billet_length [T,A],' quarters.')} 

WRITELN (' Officers assigned: ' )}3 
VIRITELNS$ 
Officer_totals := 03 

FOR X := 1 TO 16 DO 

BEGIN 

WRITELN (' ',ROUND(Billet_node [ T, A» X J),' ', TLength ( X J); 


Officer_totals := Officer_totals + Billet_node [ T> A, X }3 
END; do loop 


WRITELNS 
WRITELN (' The total number of officers assigned is '; 
ROUND (Officer_totals))35 


REPEAT until answer is correct 

Blankline (24,1)3 

WRITE ('Do you desire to see another assignment? (Y/N) ')3 
READ (Kbd, Answer )3 

Correct_answer (Answer, OK_answer )}3 

UNTIL OkK_answer = true} 


IF Answer in ('N','n'] THEN Finished: =true}3 
UNTIL Finished = true} 


Clearscreen} 


END} 


Disp_billet nodes 
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